Sorteren op meerdere criteria

[patje8]

Hallo,

Momenteel gebruik ik een macro om te sorteren op 3 criteria.

Is het echter mogelijk om op 4 criteria te sorteren?

 

[tilpi]

Volgens mij niet in een enkele sorteerroutine.

Maar je kunt eerst sorteren op de drie eerste criteria en daarna in een aparte sorteerroutine op de vierde.
Als je dat dan in jouw macro samenvoegt lijkt het wel op een enkele routine.

Mvg

Piet

 

[Gert Bouwmeeste]

Standaard sortering is inderdaad 3. In het vereden gebruikete ik ook de oplossing van Tlpi, maar die is erg bewerkelijk.

Ik sorteer dagelijks op 10 kolommen tegelijk door een hulpkolom toe te passen waarin ik de inhoud van de 10 kolommen samenvoeg met de formule

=A1&B1&C1&D1&E1&F1&G1&H1&I1&J1

Misschien heb je hier iets aan.

 

[patje8]

Momenteel gebruik ik volgende macro:

Sub Macro3()
    Range("A2:o5000").Select
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
        , Order2:=xlAscending, Key3:=Range("E2"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
End Sub

In kolom K2 met ik volgende code staan =A2&B2&C2&D2&E2&F2

Hoe moet ik dan verder gaan?

 

[tilpi]

Sub Macro3()
    Range("A2:O5000").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
        , Order2:=xlAscending, Key3:=Range("E2"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("A2:O5000").Sort Key1:=[COLOR="Red"]Range("F2"), [/COLOR]Order1:=[COLOR="red"]xlAscending[/COLOR], Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
End Sub

In het voorbeeld staat het vierde criterium in kolom F en er wordt oplopend gesorteerd.
Dat kan je naar eigen inzicht aanpassen. Dus F2 eventueel aanpassen
En als er aflopend gesorteerd moet worden dan xlAscending wijzigen in xlDescending

Mvg

Piet