Coping Cell Values

[boydr]

I'm using the following in a macro script to copy the value of one cell to a new worksheet. Does anyone know how I can copy the value of the cell so that when the source cell has a formula it won't copy the formula, but will copy the value only?

Sheets(CurrSheet).Range("A4").Copy Destination:=Sheets(NewSheet).Range("A4")

 

[paelinck]

Hi boydr,

try this

Sheets(CurrSheet).Range("A4").Copy 
Sheets(NewSheet).Range("A4").PasteSpecial Paste:=xlValues

Marc

 

[Legacy 98055]

Also...

Sheets("NewSheet").Range("A4").value = _
Sheets("CurrSheet").Range("A4").value

Tom

 

[boydr]

Thanks for the help, but I can't get it to work. I know I'm leaving something out, but not sure what. This is what I tried:

Sheets("NewSheet").Range("I4").Value Destination:=Sheets("CurrSheet").Range("B2").Value

 

[barryt]

Record a macro
and select the cell
then copy
Then select the cell that you want to paste
then paste special and have the options that paste just the value

which this will do the same as paelinck code
whihc should work

 

[boydr]

Tried that too, but it didn't work. I pasted in this:

Sheets(CurrSheet).Range("I6").Select
Selection.Copy
Sheets(NewSheet).Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

But I get the error: "Select method of Range class failed" message.
This message was edited by boydr on 2002-04-20 15:54

 

[boydr]

Actually, Tom, you're suggestion worked after I tried it again today. Not sure what I was doing yesterday, but thanks for your help and everyone elses.