To Paste special by value

**Trebor76** · 08-11-2013, 07:12 AM

Hi ravichandavar,

Try replacing this line...

Code:

ActiveWorkbook.ActiveSheet.Range("A1:O100").Copy Destination:=ThisWorkbook.Worksheets("Upload").Cells(j, "A")

...with these lines:

Code:

ActiveWorkbook.ActiveSheet.Range("A1:O100").Copy
    ThisWorkbook.Worksheets("Upload").Cells(j, "A").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

Regards,

Robert

**ravichandavar** · 08-11-2013, 10:35 AM

Hi Robert,

Thanks for the quick solution. Its working fine.

Regards,
Ravi.C

**Rick Rothstein** · 08-12-2013, 10:30 PM

Originally Posted by Trebor76

Hi ravichandavar,

Try replacing this line...

Code:

ActiveWorkbook.ActiveSheet.Range("A1:O100").Copy Destination:=ThisWorkbook.Worksheets("Upload").Cells(j, "A")

...with these lines:

Code:

ActiveWorkbook.ActiveSheet.Range("A1:O100").Copy
    ThisWorkbook.Worksheets("Upload").Cells(j, "A").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

Alternately, you could do the same thing with this single line of code...

Code:

ThisWorkbook.Worksheets("Upload").Cells(j, "A").Range("A1:O100").Value = ActiveWorkbook.ActiveSheet.Range("A1:O100").Value

I am not 100% sure of how your setup looks, but I am pretty sure you do not need the part of the code I highlighted in red and I am not so sure whether you need the part of your code I highlighted in blue either.