How can I make the code move a column to the right with each loop of my data range?

Hello,

I must create a master data base from (thousands of) identical closed files within several sub folders. I want to reference ~20 of the same cells throughout the files, having the file names listed vertically and the corresponding data for each file listed horizontally across the row. I have found most of the following code online and it works in accessing the closed files. However, it lists the data vertically (and repeats the file name vertically). Any help you can provide would be much appreciated. Thank you!

Please Login or Register  to view this content.

Originally Posted by asf612

... I have found most of the following code ... and it works ...

? Does this work for sure in any way ?

Please Login or Register  to view this content.

"*.xlsx*" => ? What's this ?

Please Login or Register  to view this content.

No, this is not adding a new workbook (with one worksheet)

Please Login or Register  to view this content.

1. Ok, but ... in what situation it may fail (this assigning to an object: "Set sourceRange") ?
Each workbook, that has a worksheet #1, also has the scope/range of "E18:E23" in it (and any other range within the cells of the sheet).
Does this mean, that there are e.g. charts in workbooks, that can be in the first position ?

2. This above ("sourceRange.Columns.Count >= BaseWks.Columns.Count") can only be at most equal, but not larger, because "BaseWks.Columns.Count" is all columns in the worksheet => because "Set BaseWks = ActiveWorkbook.ActiveSheet"

Please Login or Register  to view this content.

16384 columns ? What for ?


I understand that it is adaptation of the code to your needs, but does it work as it should ?

Originally Posted by asf612

... I want to reference ~20 of the same cells throughout the files, having the file names listed vertically and the corresponding data for each file listed horizontally across the row ...

Maybe an example ?