I have the following code that takes the data from the Input section, based a counter, and puts it into the Calculation section. Then, I need to copy paste transpose each Group to the Output section. The code I have now is:
'sub macro1
Dim calc_section As Range
Dim counter As Integer
For counter = 1 To 5
Range("calc_section").Select
Selection.Copy
Range("C21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
counter = counter + 1
Next
End Sub
And the Colo HTML looks like this....thanks in advance.
'sub macro1
Dim calc_section As Range
Dim counter As Integer
For counter = 1 To 5
Range("calc_section").Select
Selection.Copy
Range("C21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
counter = counter + 1
Next
End Sub
And the Colo HTML looks like this....thanks in advance.
Temp.xls | |||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
A | B | C | D | E | F | G | H | I | |||
1 | |||||||||||
2 | GroupCounter | 1 | |||||||||
3 | |||||||||||
4 | Input | Group | LoanType | LTV | State | DocType | Count | NoteAmt | |||
5 | 1 | Grey | 80% | TN | None | 5 | 500,000 | ||||
6 | 2 | Blue | 90% | WA | Full | 2 | 250,000 | ||||
7 | 3 | Green | 100% | TN | Except | 1 | 100,000 | ||||
8 | 4 | Black | 85% | MN | Full | 1 | 125,000 | ||||
9 | |||||||||||
10 | CalcSection | Group | 1 | ||||||||
11 | LoanType | Grey | |||||||||
12 | LTV | TN | |||||||||
13 | State | 0.8 | |||||||||
14 | DocType | None | |||||||||
15 | Count | 5 | |||||||||
16 | NoteAmt | 500,000 | |||||||||
17 | Average | 100,000 | |||||||||
18 | |||||||||||
19 | Output | ||||||||||
20 | Group | LoanType | LTV | State | DocType | Count | NoteAmt | Average | |||
21 | 1 | Grey | TN | 80% | None | 5 | 500000 | 100000 | |||
Sheet1 |