use "Destination:=" and value?

[teatimecrumpet]

Hi,

I'm using the below bit of code to copy a range and then move it to another workbook. But I'd like to place only the values and not the underlying formulas.

The code below is within a loop.

Thanks

ws.Range(ws.Range("A4"), ws.Range("D65536").End(xlUp)).Copy Destination:=Workbooks("DestinationWorkbook").Worksheets("sheet1").Range("A65536").End(xlUp).Offset(1, 0)

 

[jim may]

Try adding:

Destination:=Workbooks("DestinationWorkbook").Worksheets("sheet1").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

 

[teatimecrumpet]

Hi Jim,

After adding it I get the error "expected end of statement". I've also tried to add ".value" to the end to no avail.

Thanks for the reply!

 

[teatimecrumpet]

Hey everybody,

I looked everywhere and I don't think you can incorporate pasting only values and destination into one line.

Had to go with breaking up the line this way:

ws.Range(ws.Range("A4"), ws.Range("D65536").End(xlUp)).Copy


Workbooks("Destination Workbook").Worksheets("sheet1").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues