Transpose & reorg data from sheets "Force" and "Hours" to new workbook
sheet1
I need to adapt this skeleton code
....
Enter data Source WB path
Enter data Source WB Name
Enter data Destin. WB path
Enter data Destin. WB Name
' Same data map, in rows & cols, for "Force" & "Hours sheets
DateRange = A1: to Last Col.
Actvity Range = A1: to Last Row
DataRange = A1 : to Last Row - Last Col.
For C = 2 to MaxCol(DateRange)
For R = 2 to Max(DataRange)
' Write new WB Sheet1
Date = Date(Col(C), Row(1))
Activity = Value(Col(C1),Row(R))
' From "Force" sheet
Force = Value(Col(C),Row(R))
' From "Hours" sheet
Hours = Value(Col(C),Row(R))
Next
Next
.....
Data Source : Sheet1 "Force"
A B C D E
1. Activity Oct1 Oct2 Oct 3 Oct4
2. X 4 13 1
3. Y 6 7 9
......
Data Source : Sheet1 "Hours"
A B C D E
1. Activity Oct1 Oct2 Oct 3 Oct4
2. X 32 104 10
3. Y 72 56 72
.......
Expected result : New Workbook "Alpha" Sheet1
A B C D
1. Date Activity Force Hours
2. Oct1 X 4 32
3. Oct2 X 13 104
4. Oct4 X 1 10
5. Oct2 Y 6 72
6. Oct3 Y 7 56
7. Oct4 Y 79 72
......
Help appreciated,
J.P.