| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
toggle sort columns
I have a button linked to a macro that will sort a data ascending. Is there
a way to click said button a second time and it will sord descending? Here's the code thus far: Sub sort_date() Range("A3:T23").Sort Key1:=Range("G3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
toggle sort columns
Hi,
This test g3 and G4 to see which way they are sorted and then does the cort in the opposite direction. Sub sort_date() If Left(Range("G3"), 1) Left(Range("G4"), 1) Then MyWay = xlAscending Else MyWay = xlDescending End If Range("A3:T23").Sort Key1:=Range("G3"), _ Order1:=MyWay, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Mike "JSnow" wrote: I have a button linked to a macro that will sort a data ascending. Is there a way to click said button a second time and it will sord descending? Here's the code thus far: Sub sort_date() Range("A3:T23").Sort Key1:=Range("G3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
toggle sort columns
If G3 and G4 are equal this macro will not work.
Better to compare G3 to G23, I think. / Lars-Åke On Sun, 7 Dec 2008 07:36:01 -0800, Mike H wrote: Hi, This test g3 and G4 to see which way they are sorted and then does the cort in the opposite direction. Sub sort_date() If Left(Range("G3"), 1) Left(Range("G4"), 1) Then MyWay = xlAscending Else MyWay = xlDescending End If Range("A3:T23").Sort Key1:=Range("G3"), _ Order1:=MyWay, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Mike "JSnow" wrote: I have a button linked to a macro that will sort a data ascending. Is there a way to click said button a second time and it will sord descending? Here's the code thus far: Sub sort_date() Range("A3:T23").Sort Key1:=Range("G3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
toggle sort columns
Ah,
I never thought of that, good idea. Mike "Lars-Ã…ke Aspelin" wrote: If G3 and G4 are equal this macro will not work. Better to compare G3 to G23, I think. / Lars-Ã…ke On Sun, 7 Dec 2008 07:36:01 -0800, Mike H wrote: Hi, This test g3 and G4 to see which way they are sorted and then does the cort in the opposite direction. Sub sort_date() If Left(Range("G3"), 1) Left(Range("G4"), 1) Then MyWay = xlAscending Else MyWay = xlDescending End If Range("A3:T23").Sort Key1:=Range("G3"), _ Order1:=MyWay, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Mike "JSnow" wrote: I have a button linked to a macro that will sort a data ascending. Is there a way to click said button a second time and it will sord descending? Here's the code thus far: Sub sort_date() Range("A3:T23").Sort Key1:=Range("G3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
toggle sort columns
Mike H, although I follow what's supposed to happen with this code, it
doesn't seem to work. The range, A4 (not A3, my bad) through T23 will sort via row G4 but will only do so ascending. It doesn't switch to descending. "Mike H" wrote: Ah, I never thought of that, good idea. Mike "Lars-Ã…ke Aspelin" wrote: If G3 and G4 are equal this macro will not work. Better to compare G3 to G23, I think. / Lars-Ã…ke On Sun, 7 Dec 2008 07:36:01 -0800, Mike H wrote: Hi, This test g3 and G4 to see which way they are sorted and then does the cort in the opposite direction. Sub sort_date() If Left(Range("G3"), 1) Left(Range("G4"), 1) Then MyWay = xlAscending Else MyWay = xlDescending End If Range("A3:T23").Sort Key1:=Range("G3"), _ Order1:=MyWay, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Mike "JSnow" wrote: I have a button linked to a macro that will sort a data ascending. Is there a way to click said button a second time and it will sord descending? Here's the code thus far: Sub sort_date() Range("A3:T23").Sort Key1:=Range("G3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
toggle sort columns
Hi,
Modified and including the suggestion made by Lars-Ã…ke Sub sort_date() If Left(Range("G4"), 1) Left(Range("G23"), 1) Then MyWay = xlAscending Else MyWay = xlDescending End If Range("A4:T23").Sort Key1:=Range("G3"), _ Order1:=MyWay, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Mike "JSnow" wrote: Mike H, although I follow what's supposed to happen with this code, it doesn't seem to work. The range, A4 (not A3, my bad) through T23 will sort via row G4 but will only do so ascending. It doesn't switch to descending. "Mike H" wrote: Ah, I never thought of that, good idea. Mike "Lars-Ã…ke Aspelin" wrote: If G3 and G4 are equal this macro will not work. Better to compare G3 to G23, I think. / Lars-Ã…ke On Sun, 7 Dec 2008 07:36:01 -0800, Mike H wrote: Hi, This test g3 and G4 to see which way they are sorted and then does the cort in the opposite direction. Sub sort_date() If Left(Range("G3"), 1) Left(Range("G4"), 1) Then MyWay = xlAscending Else MyWay = xlDescending End If Range("A3:T23").Sort Key1:=Range("G3"), _ Order1:=MyWay, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Mike "JSnow" wrote: I have a button linked to a macro that will sort a data ascending. Is there a way to click said button a second time and it will sord descending? Here's the code thus far: Sub sort_date() Range("A3:T23").Sort Key1:=Range("G3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Sort by color: Is there an easy way to sort columns or rows in EX | Excel Worksheet Functions | |||
| sort by two columns ends up with wrong sort in 2nd col | Excel Discussion (Misc queries) | |||
| Sort command does not sort some columns? | New Users to Excel | |||
| How do I sort the data in 8 columns by two of the columns? | Excel Worksheet Functions | |||
| data sort is not including all columns in sort | Excel Discussion (Misc queries) | |||
Linear Mode
