How to consolidate data from multiple excel files into single sheet in new book?

Hi All,

Presently I have multiple excel files in one folder, I need a vba code which does the below activity.

Open all the excel files one after the other in ascending order and paste the data in new workbook in a single sheet.

All files contain headers, but I want header to be copied and pasted only once and not every time multiple excel files are opened.

For example: Book A and Book B contains data from 1st row to 100th row (including header). I want data to be copied 1st row to 100th row (including header) of Book A and paste in Book Consolidated, copy data from 2nd row to 100th row (exclude header) in Book B and paste it in 101st row in Book Consolidated.

Let me know if you have any questions.

Any help is much appreciated.

Try this code

Please Login or Register  to view this content.

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

Hi arlu1201,

This code helped me. I need two more favor on this.

1)If column A is not blank in any of the multiple excel files, need to insert a blank column.

2)If column A is blank, need to check if value (date) in cell "O1" is the same in all the multiple workbooks.

Please advise.

Regarding question 1, insert a blank column in the source file or the destination file?

Regarding question 2, if O1 is the same in all workbooks, what should be done?

if its not same, what should be done?

Answer to 1, blank column should be inserted in source file, so that the earlier macro copies the blank column to destination file also. (As of now, blank column in "A" is already present in all source files and so in destination file. This is fine now).

Answer to 2,

Dates in Header (1st row) in all source files begin from O1 and will be monthly wise in m/d/yyyy format.

if Value in "O1" is same in all files, continue the code how it is working now. Some files might have different values (date) in O1.
If it is different, then delete that column and look in 1st (header) row for the value in O1 in other files.

For example: in the attached files, value of O1 is 3/1/2013, this should be same in all source files which gets reflected in destination file also..

if O1 is 2/1/2013, then delete that column so that P1 which contains 3/1/2013 comes to O1.

Please let me know if you need any further information.

Friends,

Any help on the above?

Please help with this part of coding.

Here is the updated code which includes inserting column A if its not blank.

Please Login or Register  to view this content.

Regarding this,

For example: in the attached files, value of O1 is 3/1/2013, this should be same in all source files which gets reflected in destination file also..

if O1 is 2/1/2013, then delete that column so that P1 which contains 3/1/2013 comes to O1.

Please let me know if you need any further information.

How would the macro know which is the right date in O1? What if the 1st file picked up itself does not have the right column? Is it ok if a msgbox is provided to the user which will popup to ask for the date? Then this date will be matched to the columns starting in O and then proceed accordingly.

Hi arlu1201,

Thanks for providing code which includes inserting column A if its not blank.

Ok, msgbox can be provided to the user to ask for the correct date.

Try this code - i have now included the part where it checks for the date and deletes the column if its not the current date.

Please Login or Register  to view this content.