VBA to Copy data from multiple workbook to a master sheet

[Lijith]

Hi,

Does any one help me to get a vba code that meets the below mentioned requirements,

I want to copy certain rows from different workbook to a master copy, but the criteria for the selection of row from the work books is based on the date entered on the left most cell of the rows . and all work books follow the uniform structure. It would be great if I could enter a date in the input box and then the macro copy the rows with that particular date in the left most column. Please find below the snapshot of the work book that needs to be copied.

Please Login or Register  to view this content.

I got a vba code that partially fills my requirement. But that requires manually editing of the range in the macro code. Seems a message box to enter either the the range or the date , and the macro runs based on the inputs will fulfill my requirement.

Please Login or Register  to view this content.

Thanking you in advance,

Regards,

Lijith

[JBeaucaire]

So when the macro runs, you're really wanting to pull a single row from each of the workbooks, the one that matches the given date?

Does the pile of workbooks you're accessing ever change? Or is it a static set of workbooks? The reason I ask is because if it's always the same then you might be able to get the results you want with a simple set of lookup formulas referencing those closed workbooks. No VBA needed in that case.

[Lijith]

Thank you JBeaucaire for the quick response. But I have around 80+ work books and it changes monthly.

[JBeaucaire]

Ok, so we're going to run through 80 random workbooks in a folder, open each one and search for ONE row with a particular date? Or would it be multiple rows?

[Lijith]

Exactly, what you said is correct, We need to copy single raw from 80 different workbooks to a master sheet. I need to copy only single raw from each sheeet but it should fill my condition I provided through input box.( either it is with the date or with the range( A3:H3 on one day and A4:H4 on next day) etc. ).

[Lijith]

It seems, if we could find an option to input the range manually in the below mentioned line of the code I attached would be helpful.

wbD.Sheets("Sheet1").Range("A3:H3").Copy

[sktneer]

See if the following modification works for you.....

The below code will prompt you to input a date in Input Box and then check the column A in Sheet1 of all the destination workbooks and if found, it copies the row to the Master workbook.

Please Login or Register  to view this content.

[Lijith]

Thank you very much sktneer

This is exactly what I was looking for and works perfectly. Once again thank you for your help and support.

[sktneer]

You're welcome.

If that takes care of your original question, please mark your thread as Solved by selecting Thread Tools (just above your first post) --> Mark thread as solved.