Copy specific data from one workbook to another workbook if certain criteria

**ejschulte2001** · 05-11-2010, 05:58 PM

I am trying to copy certain data from one book to another.

Example: If workbook "A" contains "PIR" in column "E" pull data from column K,D,C,O,R,S in that order and populate in seperate workbook cells A,B,C,D,E,K in that order. So K=A, D=B, C=C, O=D, R=E, S=K

Somewhat new with macro's however comfortable with excel.

Thanks in advance

**Leith Ross** · 05-11-2010, 11:42 PM

Hello ejschulte2001,

This macro will take the data from the workbook the macro code is in and copy it over to another workbook that is already open. The name of the second workbook in the code is "Book2.xls". This will need to be changed to match workbook you will be using. The worksheet names are "Sheet1" for both workbooks. These can be changed if needed.

Please Login or Register  to view this content.

Adding the Macro
1. Copy the macro above pressing the keys CTRL+C
2. Open your workbook
3. Press the keys ALT+F11 to open the Visual Basic Editor
4. Press the keys ALT+I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL+V
7. Make any custom changes to the macro if needed at this time.
8. Save the Macro by pressing the keys CTRL+S
9. Press the keys ALT+Q to exit the Editor, and return to Excel.

To Run the Macro...
To run the macro from Excel, open the workbook, and press ALT+F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

**ejschulte2001** · 05-12-2010, 01:51 PM

Thanks so much.....This is almost perfect....however I want it to post in the "next Available row" on the new workbook. Workbook 2 will basically be a data base of PIR issues pulled from a report that is ran each week. The report contains about 20 issues however I am only wanting to track and archive the PIR status so each week I'll be adding to an already existing data base. Any help with "next available row?
Thanks in advance for all the help with this!

**Leith Ross** · 05-12-2010, 01:57 PM

Hello ejschulte2001,

This version will find the next available row in the second workbook.

Please Login or Register  to view this content.

**ejschulte2001** · 05-12-2010, 03:24 PM

Thanks Leith! I inserted the corrected code however It now errors me to this line
Set RngEnd = DstWks.Cells.Find("*", , xlValue, xlWhole, xlByRows, xlPrevious, False)

**Leith Ross** · 05-12-2010, 03:56 PM

Hello ejschulte2001,

If I could only type. The line should read...

Please Login or Register  to view this content.

**ejschulte2001** · 05-12-2010, 05:58 PM

It works! Thank you so much!

Copy specific data from one workbook to another workbook if certain criteria

LinkBack

Thread Tools

Rate This Thread

Display

Copy specific data from one workbook to another workbook if certain criteria

Re: Copy specific data from one workbook to another workbook if certain criteria

Re: Copy specific data from one workbook to another workbook if certain criteria

Re: Copy specific data from one workbook to another workbook if certain criteria

Re: Copy specific data from one workbook to another workbook if certain criteria

Re: Copy specific data from one workbook to another workbook if certain criteria

Re: Copy specific data from one workbook to another workbook if certain criteria

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions