Hi all, I have two columns that have formula's in and i need to replace
the formula's with the values. The page can be up to 60,000 rows long,
so the code need to be quick if possible.

Thanks in advance

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

Select the range of cells, and right click on the right border.
Keeping the right mouse button down, drag the region one column
to the right, then back to its original location. On the pop-up
menu that displays, select "Copy Here As Values Only".


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Les Stout" wrote in message
...
Hi all, I have two columns that have formula's in and i need to
replace
the formula's with the values. The page can be up to 60,000
rows long,
so the code need to be quick if possible.

Thanks in advance

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

copy|paste special values (for each column if they're not adjacent) should go
pretty fast.

Les Stout wrote:

Hi all, I have two columns that have formula's in and i need to replace
the formula's with the values. The page can be up to 60,000 rows long,
so the code need to be quick if possible.

Thanks in advance

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

--

Dave Peterson

in code

columns(10).copy
columns(10).PasteSpecial xlPasteValues

columns(14).copy
columns(14).PasteSpecial xlPasteValues

if they are adjacent

set rng = Columns(10).Resize(,2)
rng.copy
rng.Pastespecial xlPasteValues

--
Regards,
Tom Ogilvy


"Dave Peterson" wrote in message
...
copy|paste special values (for each column if they're not adjacent) should
go
pretty fast.

Les Stout wrote:

Hi all, I have two columns that have formula's in and i need to replace
the formula's with the values. The page can be up to 60,000 rows long,
so the code need to be quick if possible.

Thanks in advance

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

--

Dave Peterson