Paste Special - Values code

[ogopogo5]

I'm trying to get this simple code working but I get this following
error message.

Run-Time error '1004':
PasteSpecial Method of Range Class Failed

The following is the code.

L63 has a code of =SUM(L20:L50)

Range("L63").Select
Selection.Cut
Range("S1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Is there another "paste special - values" code that will work?

Ogopogo5

 

[Jim Cone]

Change "Cut" to "Copy"
--
Jim Cone
Portland, Oregon USA



"ogopogo5"
wrote in message
I'm trying to get this simple code working but I get this following
error message.

Run-Time error '1004':
PasteSpecial Method of Range Class Failed
The following is the code.
L63 has a code of =SUM(L20:L50)
Range("L63").Select
Selection.Cut
Range("S1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Is there another "paste special - values" code that will work?
Ogopogo5

 

[Jim Thomlinson]

You have not copied anything so there is nothing to paste. That being said
you do not need to copy and paste at all. Try this one line...

Range("S1").value = range("L63").value

 

[ogopogo5]

Thank you Jim. I will use your code Range("S1").value =
range("L63").value as it works.

Ogopogo5

 

[Don Guillett]

Be advised that when you use this for more than ONE cell you make sure they
are the same size ranges.

 

[Neon520]

Hi Jim,

I'm searching for a way to Paste Special and came across what you answer to
ogopogo5.
And so I try your method of Range("S1").value = range("L63").value

Except that it also paste along with the format that I place in the column
that I did originally - Data Validation - DropDown List.

Is there a way paste special so that on the text come along and NOT the
spcial formatting?

Thank you,
Neon520