Sort Routine Macro for Excel Worksheet

J

JCO

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
 
J

JCO

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top