Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
VBA newbie. I'm sure there's an easier way to write this but I can't
seem to form my question succinctly enough to find the answer. My code below works perfectly. Except for the fact that my workbook contains 25 worksheets that I want to sort exactly the same way and only 3 worksheets I need to sort differently. How can I update the first argument to say "If ActiveWorksheet.Name < ("Sheet1, Sheet2, Sheet3, Sheet4, etc. all the way to 22), sort this way; if Active Worksheet.Name = "Sheet23", sort this way. Any and all help is tremedously appreciated. Sub SortCurrent() If ActiveSheet.Name = "Sheet1" Then Range("A:L").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range _ ("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal End If If ActiveSheet.Name = "Sheet 23" Then Range("B:C").Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range _ ("C2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Sort doesn't recognize current region | Excel Worksheet Functions | |||
'Save current worksheet'; 'Open next worksheet' - two command buttons | Excel Discussion (Misc queries) | |||
I want in one worksheet to relatively link to/reference cells in another without changing the format of the current worksheet. | Excel Discussion (Misc queries) | |||
excel change default column sort to current selection | Excel Worksheet Functions | |||
I want to sort data randomly in addition to the current descendin. | Excel Worksheet Functions |