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.
... 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
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.
Code:
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