I have a sheet with four columns that i want sorted from. I have recorded a macro to do it, which works fine for the 4 columns.
How do I do that same thing for N columns
Code
- Sub Macro2()
- '
- ' Macro2 Macro
- '
- '
- ActiveWorkbook.Worksheets("CT_Calc (2)").Sort.SortFields.Clear
- ActiveWorkbook.Worksheets("CT_Calc (2)").Sort.SortFields.Add Key:=Range( _
- "B2:B706"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
- xlSortNormal
- ActiveWorkbook.Worksheets("CT_Calc (2)").Sort.SortFields.Add Key:=Range( _
- "C2:C706"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
- xlSortNormal
- ActiveWorkbook.Worksheets("CT_Calc (2)").Sort.SortFields.Add Key:=Range( _
- "D2:D706"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
- xlSortNormal
- ActiveWorkbook.Worksheets("CT_Calc (2)").Sort.SortFields.Add Key:=Range( _
- "E2:E706"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
- xlSortNormal
- With ActiveWorkbook.Worksheets("CT_Calc (2)").Sort
- .SetRange Range("A1:E706")
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- End Sub