Hello
I need help with code for a file to sort by 3 criteria, one custom. It is a schedule of classes. First sort is by room (column Y), second sort is Day(s) of classes and needs to be custom. Custom data is: MW, M, W, TR, T, R, F. This is column T. The 3rd criteria is start time of class. Column U and properties are time 1:30 pm. Row A is header column. Sort should be ascending for 1st and 3rd sort. @nd sort sb as in order it appears on my list. I am using range for my code. First sort code looks like this:
Worksheets("Area").Sort.SortFields.Clear
Sheets("area").Activate
Range("A1:AD700").Sort Key1:=Range("Y1"), Order1:=xlAscending, Header:=xlYes
I am a beginner so go gentle. I tried inserting key 2 as customorder and bombed out:
Key2:=Range("T1"), OrderCustom:=x
Anyone have a solution?
thanks
I need help with code for a file to sort by 3 criteria, one custom. It is a schedule of classes. First sort is by room (column Y), second sort is Day(s) of classes and needs to be custom. Custom data is: MW, M, W, TR, T, R, F. This is column T. The 3rd criteria is start time of class. Column U and properties are time 1:30 pm. Row A is header column. Sort should be ascending for 1st and 3rd sort. @nd sort sb as in order it appears on my list. I am using range for my code. First sort code looks like this:
Worksheets("Area").Sort.SortFields.Clear
Sheets("area").Activate
Range("A1:AD700").Sort Key1:=Range("Y1"), Order1:=xlAscending, Header:=xlYes
I am a beginner so go gentle. I tried inserting key 2 as customorder and bombed out:
Key2:=Range("T1"), OrderCustom:=x
Anyone have a solution?
thanks