Paste Special - Values code

  • Thread starter Thread starter ogopogo5
  • Start date Start date
O

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
 
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
 
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
 
Thank you Jim. I will use your code Range("S1").value =
range("L63").value as it works.

Ogopogo5
 
Be advised that when you use this for more than ONE cell you make sure they
are the same size ranges.
 
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
 
Back
Top