Sort data by 4 columns.. tweak needed

[conoromuiri]

Hi all,

I have some data that I was sorting previously by 3 different columns with the following code:

 Range("A2:R1500").Select
    Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Key2:=Range("A3"), _
        Order2:=xlAscending, Key3:=Range("R3"), Order3:=xlAscending, Header:= _
        xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal

Now I need to add another column to sort by... I tried adding 'key4' but it didn't seem to work for me...

Any ideas?

 

[John Davis]

Hi all,

I have some data that I was sorting previously by 3 different columns with the following code:

 Range("A2:R1500").Select
    Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Key2:=Range("A3"), _
        Order2:=xlAscending, Key3:=Range("R3"), Order3:=xlAscending, Header:= _
        xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal

Now I need to add another column to sort by... I tried adding 'key4' but it didn't seem to work for me...

Any ideas?

I think 3 is the limit, does this help?

http://www.mrexcel.com/archive/Data/1401.html

Or you could just add another sort:

Sub conoromuiri()

With Range("A2:R1500")

       .Sort Key1:=Range("C3"), Order1:=xlAscending, Key2:=Range("A3"), _
        Order2:=xlAscending, Key3:=Range("R3"), Order3:=xlAscending, Header:= _
        xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
        
       .Sort Key1:=Range("4th Key"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
End With

End Sub