Cull data from multiple workbooks

**burwellhoenheim** · 09-26-2012, 12:58 AM

I'm trying to make a macro similar to this that will compile a master list of parts I've ordered, who supplies them, etc. I've attached a sample of the form I want to use. I need the macro to open all the excel files I have in a folder, copy all cells except the header, and paste them into a master sheet at the nearest empty row. Here is the code I tried to use. It doesn't work, but I figured I would at least throw it out there. Any help would be greatly appreciated.

Please Login or Register  to view this content.

MODERATOR'S EDIT: As per forum rules, your question has been moved to a thread of its own and the CODE TAGS added to your post. Please do take a moment to read the Forum Rules (link in the menu bar above). Thanks.

**JBeaucaire** · 09-26-2012, 04:22 AM

'WORKBOOKS TO 1 SHEET STACKED

Here's a macro for collecting data from all files in a specific folder.

Workbooks to 1 Sheet

The parts of the code that need to be edited are colored to draw your attention.

As you adapt the code for your use, for instance, if you want to start at row2 in your copy, that would be a simple tweak in the
'This is the section to customize...' area:

Please Login or Register  to view this content.

**burwellhoenheim** · 09-26-2012, 11:09 AM

Thanks for the help. I looked at the code you linked me to and tried to adapt it to my needs, but it opens the first file, copies it into the master workbook, then throws error 1004. When I go to debug after the error is thrown it has the

Please Login or Register  to view this content.

highlighted in yellow and the macro doesn't continue.

Here is all of the code I have:

Please Login or Register  to view this content.

I'm a long-time excel user but new to VBA, sorry for all the questions. Unfortunately I have several hundred documents I need to compile by the end of the week and am pretty desperate to find a quick way to do it. Thanks for all the help!

**JBeaucaire** · 09-26-2012, 11:45 AM

I would think this:

Please Login or Register  to view this content.

Should be:

Please Login or Register  to view this content.

That one line grabs all the data from A2:I(LastRowOfData) and pastes it into the summary. Notice it says copy the .EntireRow, which in this case is all of the entire rows.