Paste Special (Values)

  • Thread starter Thread starter Chris
  • Start date Start date
C

Chris

I have the following code and I want to paste it as values.

Sheets("TableData").Range("A" & k).Copy
Destination:=Sheets("Sheet2").Range("A" & j)

(k and j are variables.)
 
Sheets("TableData").Range("A" & k).Copy
Sheets("Sheet2").Activate
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues

What you want to specify as your destination is the top left-most cell of
your destination range.
 
Sheets("TableData").Range("A" & k).Copy
Sheets("Sheet2").Range("A" & j).pastespecial paste:=xlpastevalues

or just assign the value

Sheets("Sheet2").Range("A" & j).value _
= Sheets("TableData").Range("A" & k).value
 
Something like:

With Sheets("TableData")
.Range("A" & k).Copy
.Range("A" & j).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End With

Regards

Trevor
 
Sorry

missed the fact that the destination was on another sheet. But the others
have given the answer

Regards
 
Sheets("TableData").Range("A" & k).Copy
Sheets("Sheet2").Range("A" & j).pastespecial paste:=xlpastevalues

or just assign the value

Sheets("Sheet2").Range("A" & j).value _
= Sheets("TableData").Range("A" & k).value
Click to expand...

Thanks! Your second method gets the job done.
 
Back
Top