Sort direction selection

[nolloping]

hi,

I need to find the current application setting for a sort function. is there a way to toggle the way a Sort function use xlDescending and xlAscending.

Sub SortPerCent()
    Range("i119").Select
    Sort
End Sub
Sub Sort()
    a = xlDescending
    b = xlAscending
    
    if application.sortorder = a then  not application.sortorder = a

    
    Rows("119:133").Sort Key1:=Selection, order1:=application.sortorder , Header:=xlNo _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

I Know sortorder is not a vba function, but it is the best way to describe it. What i am trying to describe is that i need to find the last sort order and the toggle it to the opposite. Is this possible?

tks,

[sweep]

Hi,

maybe not directly, but you could compare the top and bottom of the range to determine which is larger, and therefore what the current sort order is?

[nolloping]

Got it, but in an not very good way.

Sub SorterWeapons()
    a = xlDescending
    b = xlAscending
    
    myOldSort = Worksheets("Sheet1").Range("a142").Value
    If myOldSort = a Then mySort = b
    If myOldSort = b Then mySort = a
    
    Rows("143:170").Sort Key1:=Selection, order1:=mySort, Header:=xlNo _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

    Worksheets("Sheet1").Range("a142").Value = mySort
End Sub

With this code i have to save a variable value to the sheet in order to toggle to the opposite Ascending/Descending value.

Does anybody know if there is a way to retrieve the applications last sort order? would like to get this in a way without having to save the sort order varable value to the spreadsheet.