Copy and PasteSpecial help

[Guest]

I have simple code:

Sheets("DW").Range("C15:BK15").Copy
Sheets("DW").Range("C11").PasteSpecial(xlValues)

I get the follwoing error:

Error 1004
Unable to get the PasteSpecial property of the Range class

What gives?

 

[Don Guillett]

try

with range("c15:bk15")
..value=.formula
end with

 

[Guest]

Try this one.

Option Explicit
Public Sub PasteSpecial()
Dim ws As String
Dim from As Range
Dim destination As Range
ws = "DW"

With Worksheets(ws)
Set from = .Range("A2:A5")
Set destination = .Range("B2")
Call from.Copy
Call destination.PasteSpecial(xlPasteValues)
End With

End Sub

 

[Guest]

I have solved it with this workaround...but woudlstill like to know what my
original problem was

Sheets("DW").Range("C11:BK11").Value =
Sheets("DW").Range("C15:BK15").Value

 

[Guest]

I am guessing that that line of code was all on one line? That would cause
the problem. PasteSpecial code goes on 2 lines... something like this...

Sheets("DW").Range("C15:BK15").Copy
Sheets("DW").Range("C11").PasteSpecial xlValues
Application.CutCopyMode = False

 

[Guest]

Try this one,

Option Explicit
Public Sub PasteSpecial()
Dim ws As String
Dim from As Range
Dim destination As Range
ws = "DW"

With Worksheets(ws)
Set from = .Range("A2:A5")
Set destination = .Range("B2")
Call from.Copy
Call destination.PasteSpecial(xlPasteValues)
End With

End Sub