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

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

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
--
HTH...

Jim Thomlinson


"ogopogo5" wrote:

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

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

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

Ogopogo5

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

Be advised that when you use this for more than ONE cell you make sure they
are the same size ranges.
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

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

Ogopogo5

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

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


"Jim Thomlinson" wrote:

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
--
HTH...

Jim Thomlinson


"ogopogo5" wrote:

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

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