Thread: Need Help with Code for Copy and Pasting between Workbooks
View Single Post
 
Old 03-10-2016, 07:57 AM
rsrasc rsrasc is offline Windows 10 Office 2013
Competent Performer
  
Join Date: Mar 2014
Location: Germany
Posts: 148
rsrasc is on a distinguished road
Default
Hello Debaser,

Thank you so much for your response. I managed to get it to work with the following code:

Code:
Workbooks("PPE.xls").Sheets("Page 1").Range("A12").Copy Destination:=Workbooks("MyData.xlsm").Sheets("Sheet1").Range("A6")

but it does not work with the following code:


Code:
Workbooks("PPE.xls").Sheets("Page 1").Range("A12,A16,A20,A24, etc...").Copy Destination:=Workbooks("MyData.xlsm").Sheets("Sheet1").Range("A6")
With the above code is giving me the following error:

Run-time error '1004':

Application-defined or object-defined error


So, if you or anyone can help me with this, I will appreciate it. I'm attaching a copy of the source ("PPE") file for any help.

Thanks again,

Cheers!
Attached Files
File Type: xls PPE.xls (53.5 KB, 7 views)
Reply With Quote