Posted on 2009-12-17
This code is working great but I need to add to it - I need three columns sorted
The First sort would be the code below
The Second sort would be by column D2 ascending which has numbers and text. I need the number values sorted first in this column the text will say "None" or could be null.
The Third sort would be by Column O2 ascending which is text.
Private Sub sortmainlist()
Dim rng As Range
Dim listnum As Long
On Error Resume Next
Application.AddCustomList ListArray:=Array("Top", "Middle", "Bottom")
listnum = Application.GetCustomListNum(Array("Top", "Middle", "Bottom"))
Thank you in advance.
Set rng = Range(.Cells(2, "A"), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 5))
rng.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=listnum + 1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _