Macro aanpassen voor sorteren

[NIh1IlO]

Gegroet specialisten

ik heb een macro gemaakt aan de hand van de commando's voor het sorteren; hiertoe waren 3 bepalende criteria mogelijk.
Ik dacht van die macro nu nog te kunnen naar mijn hand zetten door er een vierde criterium aan toe te voegen, doch ik krijg telkens een foutmelding.

Range("B37:Q48").Select
Selection.Sort _
Key1:=Range("P37"), Order1:=xlDescending, _
Key2:=Range("H37"), Order2:=xlDescending, _
Key3:=Range("Q37"), Order3:=xlDescending, _
Key4:=Range("B37"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("B37").Select

De 4de Key-lijn heb ik manueel toegevoegd na ook nog de selectie te hebben uitgebreid tot en met de kolom B.

Is het misschien niet mogelijk te sorteren op 4 criteria met een aangemaakte macro via de sorteercommando's of moet de zaak anders worden aangepakt/opgelost?

Ik kijk uit naar een mogelijke oplossing.

Met beste dank op voorhand en vriendelijke groeten

nIh1IlO

 

[ExcelExpert]

Probeer in de nieuwe regel Order3 eens te vervangen door Order4

 

[NIh1IlO]

Hellokes

inderdaad dat was een lapsus van mijnentwege. Maar... het lukt niet!

Toch met vriendelijke groeten en hopelijk komt er toch nog een oplossing.

nIh1IlO

 

[LucB]

Probeer dit eens,


Range("B37:Q48").Select
Selection.Sort _
Key1:=Range("P37"), Order1:=xlDescending, _
Key2:=Range("H37"), Order2:=xlDescending, _
Key3:=Range("Q37"), Order3:=xlDescending, _
Range("Q37").Select
Range("B37:Q48").Select
Selection.Sort _
Key1:=Range("B37"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("B37").Select

 

[NIh1IlO]

Hoi Luc

ook dit lukt NIET. Steeds een foutmelding zodat de macro niet kan uitgevoerd worden.
Bij het uitvoeren van de macro wordt het woord Range op de 6de lijn geselecteerd terwijl een foutenvenstertje verschijnt waarin staat:

"Range Compileerfout:
Verwacht: benoemde parameter"

Groetjes van nIh1IlO

Ik blijf hopen!

 

[LucB]

Sorry,
Dit was geen goed idee.
Als het wel werkte kreeg je verkeerde resultaten.

Oom Bill maar eens vragen hier iets aan te doen.

 

[janus1janus1]

Helaas, dit gaat niet lukken. Drie sleutels is het maximale aantal.
Je kan dit eventueel oplossen door twee keer achter elkaar te sorteren op verschillende sleutels.
Janus

 

[NIh1IlO]

Beste Excelmeedenkers

bedankt voor de suggesties en de tips. Ik heb de laatste tip van janus1janus1 uitgeprobeerd en het bood mij absolute voldoening.

Besluit: tweemaal na elkaar sorteren op verschillende sleutels!

Beste dank en vriendelijke groeten

nIh1IlO