2 level sorting
 

Good morning everyone

I hope someone can help me with this. I am trying to filter my worksheet at
2 distinct levels. Firstly, I am trying to sort the workbook in ascending
results in terms of column B. I managed to do this by recording the macro and
got the following code:

Selection.AutoFilter
Range("A1:AE144").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

However, once the workbook is sorted like this, I would like to further sort
the results in ascending values in terms of Column J. Thus keeping the data
sorted in terms of Column B... but further sorted in terms of Column J.

Really would appreciate the help

Regards

Paul

2 level sorting
 

Never mind, managed to achieve result by using the following:

Cells.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("O2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal


Thank you though in case you were looking to help

"PVANS" wrote:

Good morning everyone

I hope someone can help me with this. I am trying to filter my worksheet at
2 distinct levels. Firstly, I am trying to sort the workbook in ascending
results in terms of column B. I managed to do this by recording the macro and
got the following code:

Selection.AutoFilter
Range("A1:AE144").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

However, once the workbook is sorted like this, I would like to further sort
the results in ascending values in terms of Column J. Thus keeping the data
sorted in terms of Column B... but further sorted in terms of Column J.

Really would appreciate the help

Regards

Paul