Sorteren met twee kolommen

[verluc]

Wens nogmaals beroep te doen op dit forum om hulp bij volgend probleem:

Heb in kolom B jaartallen: 1966, 1967 enz.
Deze worden met een macro automatisch gesorteerd na invoering van een jaartal.
Bijkomend staat in kolom A een waarde die verschillend kan zijn volgens een bepaald jaar.
Is het mogelijk ook automatisch deze waarde te sorteren op basis van het jaartal?
Voorbeeld :
0,25 1965
0,25 1966
1,00 1966
1,00 1966
0,25 1966
0,25 1966

1,00 1967
1,00 1967
0,25 1967
0,25 1967
0,25 1967
0,25 1967
Hierbij zou de waarde ook van laag nog hoog moeten gesorteerd worden per jaartal !

Met dank voor elke suggestie

 

[HSV]

Kolom A en B aflopend sorteren.
Wel of geen Veldnamenrij.
Onder Menu 'Data'

 

[verluc]

Info : dit is de macro die ik thans gebruik voor kolom B

Sub Aangepast_sorteren()
    Range("A65536").End(xlUp).Offset(1, 0).Activate
    Range("A2").CurrentRegion.Sort key1:=[B2], order1:=xlAscending, Header:=xlYes
    'Range("A:E").Columns.AutoFit
End Sub

 

[HSV]

Sub Aangepast_sorteren()
    Worksheets("Blad1").Range("A2:B65536").Sort Key1:=[B2], Key2:=[A2]
End Sub

 

[verluc]

HSV, met gemeende dank.Werkt zoals ik in gedachten had !