ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Sort More than 3 criteria (https://www.excelbanter.com/excel-programming/318703-sort-more-than-3-criteria.html)

Matt

Sort More than 3 criteria
 
Hi
I am trying to sort a data range with more than 3 criteria. I have tried
editing a recorded macro with 3 criteria and adding the 4th and it is not
working.

Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("b2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending,
Key4:=Range("h2"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
End Sub

Is there an error in my code or do I need a different approach?
Thanks
Matt

Frank Kabel

Sort More than 3 criteria
 
Hi
you have to do this in multiple steps:
1. Sort with the last criteria
2. Repeat sorting with the first 3 criteria

--
Regards
Frank Kabel
Frankfurt, Germany

Matt wrote:
Hi
I am trying to sort a data range with more than 3 criteria. I have
tried editing a recorded macro with 3 criteria and adding the 4th and
it is not working.

Selection.Sort Key1:=Range("C2"), Order1:=xlAscending,
Key2:=Range("b2") _ , Order2:=xlAscending, Key3:=Range("D2"),
Order3:=xlAscending, Key4:=Range("h2"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
End Sub

Is there an error in my code or do I need a different approach?
Thanks
Matt




Sharad

Sort More than 3 criteria
 
Sort method can take max. of 3 sort field (key) arguments.
You can first sort with 1 key, and then repeat again with 3 more keys.

Sharad



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!


All times are GMT +1. The time now is 10:38 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com