Sorteren met VBA

[willema]

Dag allemaal,

Deze code gebruik ik vaak om op max. 3 kolommen te sorteren vanaf rij 3/kolom 1 tot en met de laatste rij in de laatste kolom.

Range(Cells(3, 1), ActiveCell.SpecialCells(xlLastCell)).Sort Key1:=Cells(3, x), Order1:=xlAscending, Key2:=Cells(3, y), Order2:=xlAscending, Key3:=Cells(3, z), Order3:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

... waarbij x, y en z de drie kolommen zijn.
Deze code dateert nog van toen Excel maar op maximum drie kolommen kon sorteren. Maar nu wil ik er een vierde kolom bijvoegen. Key4:= toevoegen lukt niet.
Met de macrorecorder een opname doen van dergelijke sorteeractie resulteert in een code waarin ik er maar niet in slaag om de vaste selecties te veranderen door variabelen.

Kan iemand me op de juiste weg helpen ?

Groeten,
Marnik

 

[edmoor]

Drie is het maximum aantal keys om ineens op te sorteren. Je kan wel meerdere sorteer opdrachten na elkaar laten uitvoeren met een maximum van 3 keys per keer.

Tip voor leesbaarheid. Schrijf het eens zo:

    Range(Cells(3, 1), ActiveCell.SpecialCells(xlLastCell)).Sort _
        Key1:=Cells(3, x), Order1:=xlAscending, _
        Key2:=Cells(3, y), Order2:=xlAscending, _
        Key3:=Cells(3, Z), Order3:=xlAscending, _
        Header:=xlNo, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal

 

[willema]

Je kan wel meerdere sorteer opdrachten na elkaar laten uitvoeren met een maximum van 3 per keer.

Gouden tip !!! Dank Ed !!!