The image below shows all the table records on the left, Cells B - F are the column headers and each red number is the rank.
I recorded a macro that selected rank 1 and transposed it into the table in B-F row 1.
I attempted to write this macro to loop through the column(A) with the records:
Thoughts? Any help is much appreciated.
I recorded a macro that selected rank 1 and transposed it into the table in B-F row 1.
I attempted to write this macro to loop through the column(A) with the records:
VBA Code:
Sub Transpose_data()
'
' Transpose_Data Macro
' transpose the data from one many rows in column to rows in table
Dim Cll As Range
Dim Rng As Range
Dim Rng2 As Range
Set Rng2 = Range("A:A")
Set Rng = Range (Cells(1,1), Cells(1,6))
For Each Cll In Rng2
If IsNumeric(Rng2.Value) Then
Rng.Select
Selection.Copy
Range("B2").End(xlDown).Offset(1,0).Select
Selection.PasteSpecial Paste:=xlPasteALL, Operation:=xlNone, SkipBlanks:=_False, Transpose:=True
End If
Next Cll
End Sub
Thoughts? Any help is much appreciated.