Need Help with Code for Copy and Pasting between Workbooks

rsrasc · #3 03-10-2016, 07:57 AM

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!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy + Pasting Excel Tables in word have 8pt spacing	Jiing Chiang	Word Tables	4	01-14-2016 05:43 PM
Copy and pasting problem Word 2010	Sarah262	Word	3	08-16-2012 03:46 PM
Loop through folder of workbooks and copy range to other workbook	Snvlsfoal	Excel Programming	3	07-29-2011 05:55 AM
copy-pasting hyperlinked images: work only at the edges	Xuanzang	PowerPoint	0	12-07-2010 02:35 AM
help Copy from excel and pasting as a metafile in powerpoint	Juiceapple	Office	1	09-15-2009 09:52 AM