How to execute a macro across a specific number of columns

**lukasdylan** · 06-05-2012, 12:34 PM

Hello,

I am trying to learn rules in altering a macro that has been recorded. I need the following code to execute across columns A-AX. Thank you in advance for your time.

Range("A2:A21").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:A21")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

**xladept** · 06-05-2012, 12:41 PM

Hi Lucasdylan,

Try: Range("A2:AX21")

**lukasdylan** · 06-05-2012, 12:46 PM

Hello xladept:

Thank you for the response. The change you suggested works, but I need the columns to be sorted independently. Right now it seems they are all being sorted on the numbers in column A. Any thoughts? Thanks again.

**xladept** · 06-06-2012, 02:06 PM

Hi lukasdylan,

Maybe:

Sub SortSingleColumns(): Dim i As Integer
For i = 1 To 50
    Range(Cells(2, i), Cells(21, i)).Select
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                With ActiveWorkbook.Worksheets("Sheet1").Sort
                .SetRange Range(Cells(2, i), Cells(21, i)).Select
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
                End With
Next i: End Sub

**xladept** · 06-06-2012, 03:00 PM

Hi lukasdylan,

Get rid of that select at the end of the set - sorry.

**tigeravatar** · 06-06-2012, 03:42 PM

Alternate version, using Range.Sort instead of Worksheet.Sort:

Sub tgr()
    
    Dim i As Long
    For i = Columns("A").Column To Columns("AX").Column
        With Range(Cells(2, i), Cells(Rows.Count, i).End(xlUp))
            .Sort .Cells, xlAscending, Header:=xlGuess
        End With
    Next i
    
End Sub