Sort by multiple columns

[ysherriff]

Hi i have the below code to sort by multiple columns but for some reason it is not working. I do not get an error message but the code doesn't work. What am i missing?

Thanks for your help

With ActiveSheet.Sort
             .SortFields.Clear
             .SortFields.Add Key:=Range("D9:D700" _
                                   ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
             .SortFields.Add Key:=Range("J9:j700" _
                                   ), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
            .SetRange Range("B9:N700")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
End With

 

[NARAYANK991]

Hi ,

I have tried your code , and it works without any problem.

Can you upload your workbook with the data in it ?

Narayan

 

[YasserKhalil]

You can try this code instead

Sub SortData()
    With ActiveSheet
        .Range("B9:N700").Sort _
                Key1:=.Range("D9:D700"), Order1:=xlAscending, _
                Key2:=.Range("J9:j700"), Order2:=xlDescending, _
                Header:=xlYes
    End With
End Sub