Sorteren dmv programmacode excel

[mooske04]

Vraagje:

Ik wil graag elk werkblad in excel automatisch op datum sorteren.
Bijvoorbeeld als je cel F8-f10 wijzigt dat ie dan automatisch bereik A18:k30 sorteert op kolom b?

Zou ideaal zijn als je er geen knop voor hoeft te maken, maar dat je het gewoon in de programmacode van het werkblad zet en alles volautomatisch gaat....

 

[ovries]

Als je deze code opneemt in je programmacode zal de sortering plaatsvinden na wijziging van een van de 3 cellen F8:F10

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("f8:f10")) Is Nothing Then Exit Sub
Range("a18:K30").Sort _
Key1:=Range("B18"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
End Sub

 

[mooske04]

Thanks!!

Bedankt voor de snelle reactie. Het werkt super!

 

[mooske04]

Bovenstaande werkt perfect, maar nu wil ik op 2 criteria sorteren ipv op 1. ik heb de formule als volgt aangepast:

Private Sub Worksheet_change(ByVal Target As Range)
    If Not Intersect(Target, Range("G24")) Is Nothing Then
    ActiveSheet.Range("A62:Q1000").Sort _
    Key1:=Range("F61"), Order1:=xlAscending, _
    Key2:=Range("B61"), Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, _
    MatchCase:=False, Orientation:=xlTopToBottom
    Exit Sub
End If

Maar dan krijg ik een foutmelding.... Hoe pas ik hem aan zodat ie eerst opkolom F en vervolgens op B sorteert?