Workbook to Workbook Data copy

[jrtdcg]

Hello Everyone,

Just curious if there is a way to copy from any open workbook to a new workbook? In other words...I'd like to have the ability to open any workbook of choice and run a macro from my personal quick access toolbar that copies data and paste values into another workbook without having to write the code to a specific workbook each time. Any ideas?

I have the code written to open a new workbook and save with a new name, but I'm stumped on the copy/paste portion of the code. Any help would be appreciated.

Thank you in advance!

 

[dermie_72]

for the copy paste you could use the following:

sourceworkbook.sourceworksheet.cells.copy destination:= targetworkbook.targetworksheet.range("A1")

You can set the variable

dim sourceworkbook as workbook, targetworkbook as workbook
dim sourceworksheet as worksheet, targetworksheet as worksheet

The set the locations

Set sourceworkbook = activeworkbook
Set sourcesworksheet = activeworksheet
Set targetworkbook = workbook.open '(location details).  Or Workbook.add 
Set targetworksheet = targetworkbook.Sheetname  (If you have used workbook.add, it can be activesheet as that will be the active location.

The put the copy paste code in under and it should work. If not, step through the macro to see where it is falling over.