Consolidating two excel files

They keep track of revenues of their respective products in similar Excel files.

So, Trevor needs to have all the data consolidated in one place. Taking into account, the need for manual intervention every time and the inherent communication delays, this approach is highly cumbersome.

They both are very similiar and will ask for the directory to copy from.

Trevor is the Director of sales for a medium sized furniture company, that has various product lines.

Sheets(1) Filename = Dir(path & "\*.xls", vb Normal) If Len(Filename) = 0 Then Exit Sub Do Until Filename = vb Null String If Not Filename = This WB Then Set Wkb = Workbooks.

Open(Filename:=path & "\" & Filename) Set Copy Rng = Wkb. Range(Cells(Rowof Copy Sheet, 1), Cells(Active Sheet.

Can somebody also suggest a good book with examples I can start to learn to solve these kinds of problems? Close False End If Filename = Dir() Loop Range("A1"). Sheets(1) Filename = Dir(path & "\*.xls", vb Normal) If Len(Filename) = 0 Then Exit Sub Do Until Filename = vb Null String If Not Filename = This WB Then Set Wkb = Workbooks.

Thanks very much Excel_beginner Are these workbooks all stored in the same folder? Open(Filename:=path & "\" & Filename) Set Copy Rng = Wkb. Range(Cells(Rowof Copy Sheet, 1), Cells(Cells(Rows.

Leave a Reply