Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort Routine Macro for Excel Worksheet
I have an excel that requires a sort routine. I tried using the start/stop
recording. The code is shown below, however, I need this routine to work when you don't know how many rows are in the data. My method has the filename hardcoded too. I don't know if that matters. This one subroutine of many. Can someone show me how to make this routine more dynamic. It will always sort by the same Column but it needs to work with all different Ranges of data (this example is hardcoded to sort data from row 2 through row 613. Sub SortCategoryAssistance() Cells.Select ActiveWorkbook.Worksheets("NEEDWest Error Report").Sort.SortFields.Clear ActiveWorkbook.Worksheets("NEEDWest Error Report").Sort.SortFields.Add Key:= _ Range("P2:P613"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _ :=xlSortNormal With ActiveWorkbook.Worksheets("NEEDWest Error Report").Sort .SetRange Range("A1:T613") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A1").Select End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort Routine Macro for Excel Worksheet
never mind. I figured it out as shown below:
' ' SortCategoryAssistanceWithHeadersMacro ' ' Cells.Sort Key1:=Range("P2"), _ Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom ' Range("A17").Select "JCO" wrote in message ... I have an excel that requires a sort routine. I tried using the start/stop recording. The code is shown below, however, I need this routine to work when you don't know how many rows are in the data. My method has the filename hardcoded too. I don't know if that matters. This one subroutine of many. Can someone show me how to make this routine more dynamic. It will always sort by the same Column but it needs to work with all different Ranges of data (this example is hardcoded to sort data from row 2 through row 613. Sub SortCategoryAssistance() Cells.Select ActiveWorkbook.Worksheets("NEEDWest Error Report").Sort.SortFields.Clear ActiveWorkbook.Worksheets("NEEDWest Error Report").Sort.SortFields.Add Key:= _ Range("P2:P613"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _ :=xlSortNormal With ActiveWorkbook.Worksheets("NEEDWest Error Report").Sort .SetRange Range("A1:T613") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A1").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sort Routine | Excel Discussion (Misc queries) | |||
Generalising sort routine | Excel Programming | |||
sort and tally routine | Excel Programming | |||
Sort Routine VBA | Excel Programming | |||
Need a Special Sort Routine | Excel Programming |