Combing Multiple Workbooks - Twist

LearningVBA

New Member
Each month I recieve approximatly 150 - 180 workbooks (varies month to month) all of which I have to enter into a Summary Workbook.

The workbooks are identical in layout and the data is held in cells C5:H27, the identifier for each site is shown in cell A1 with the description in cells A5:A27

The Summary workbook has 16 worksheets, with four named Weekday, Saturday, Sunday and Weekend

In the example below you can see that each of the columns has the same four identifiers. I need to be able to copy the data from each of these columns onto the correct worksheet along with the identifier.

Edinburgh.xls
ABCDEF
1EH
2
3
4ProductAverage WeekdaySaturdaySundayWeekend
500001239,53139,966547,998587,964
60000218,3015,6158,46514,080
700003
8000048,2435,5490
900005
1000006
1100007
120000871,1236,081346,514352,595
13000090000
1400010
15000115,1763,4992,479
1600012
1700013
1800014
190001535,5389,42644,02153,447
2000016
210001734,0866214141,035
2200018
2300019
2400020
2500021
260002211,0011,16201,162
2700023
Summary

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.

LearningVBA

New Member
This is the result that I'm after:-
Book2.xls
ABCDEFGH
1
2
3
4Product / IdentifierEHBLCVML
500001239,53199,24473,70590,0060
60000218,30111,73306,4820
700003
8000048,2431,5010
900005
1000006
1100007
120000871,1230000
1300009022,3366589,7570
1400010
15000115,1765260
1600012
1700013
1800014
190001535,53813,2529798,2520
2000016
210001734,0861563010
2200018
2300019
2400020
2500021
260002211,0011,5861,9550
2700023
280
Weekday

Replies
1
Views
90
Replies
1
Views
124
Replies
2
Views
128
Replies
0
Views
59
Replies
1
Views
74