macro

[ppms]

Hallo,

Kan deze macro soms korte gemaakt worden.

Application.ScreenUpdating = False
Dim MijnSelectie
    Range("A12:A91").Select
    Selection.Sort Key1:=Range("A12"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("B12:Y91").Select
    Selection.Sort Key1:=Range("Y12"), Order1:=xlAscending, Header _
        :=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Selection.Sort Key1:=Range("x12"), Order1:=xlDescending, Key2:=Range("I12") _
        , Order2:=xlDescending, Key3:=Range("J12"), Order3:=xlDescending, Header _
        :=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Selection.Sort Key1:=Range("x12"), Order1:=xlDescending, Key2:=Range("F12") _
        , Order2:=xlDescending, Key3:=Range("G12"), Order3:=xlDescending, Header _
        :=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("C12").Select
    Application.ScreenUpdating = True

Groet PPMS

 

[Warme bakkertje]

Je kan die Select en Selection al achterwege laten

Sub tst()
With Application
    .ScreenUpdating = False
    [A12:A91].Sort [A12], xlAscending
    With [B12:Y91]
        .Sort [Y12], xlAscending
        .Sort [x12], xlDescending, [I12], ,xlDescending, [J12], xlDescending
        .Sort [x12], xlDescending, [F12], ,xlDescending, [G12], xlDescending
    End With
    .Goto [C12]
    .ScreenUpdating = True
End With
End Sub

 

[ppms]

Hallo,

Ik wil je vriendelijke bedanken voor de macro een heel stuk minder groot, zelf heb ik nog dit weg gelaten .Goto [C12] daar dit niet nodig is dat de celwijzer altijd naar C12 gaat.

Groet PPMS