Loop through each folder copy values from range in file1 to named range in file2

I have a list of Folders in a directory

Folder1
Folder2
Folder3
Folder4
Folder5
....... Continues for a total of 20 folders


Each folder contains 2 files
Example Start::
In folder1 the files are called
Folder1 - Q4(RawData).xls
Folder1 - Q4(Graphs).xlsx

Folder2 the files are called
Folder2 - Q4(RawData).xls
Folder2 - Q4(Graphs).xlsx
Example End


For each Subfolder in directory do the following:
1. open ????? - Q4(RawData).xls
Sheet name I - Copy Range("A3:C15") -to- range IChartdata in ????? - Q4(Graphs).xlsx
Sheet name L - Copy Range("A3:G15") -to- range LChartdata in ????? - Q4(Graphs).xlsx
Sheet name R - Copy Range("A3:I15") -to- range RChartdata in ????? - Q4(Graphs).xlsx
Sheet name M - Copy Range("A3:H15") -to- range MChartdata in ????? - Q4(Graphs).xlsx

2. Goto next folder and do step 1


I recorded the following code but I need help on make this work for all folders.


Thanks
Steve

Please Login or Register  to view this content.

Hardly the most efficient of codes but should work based on you file description. You need to change the sPath to the main folder where you you have your subfolders.

Macro loops from 1 to 20 to extract data from all Q4(RawData).xls files and paste it to the Q4(Graphs).xlsx file.

Suggest that you have a backup of your original data before you test this.

Please Login or Register  to view this content.

Alf