Datum in kolom dmv knop op volgorde zetten

[arie2507]

Hallo,
Ik sta voor een uitdaging. Ik heb een EXCEL 2007 bestand nodig waarbij twee kolommen met datums (data) dmv een knop op volgorde kunnen worden gezet.

Ik heb 6 kolommen

Vereniging / attribuut / aansch / verloop / plaats / verloop


de Kolommen verloop bevatten verloop datum.
Echter wil ik dmv een knop boven deze twee kolommen de datum volgorde per kolom op volgorde willen bekijken. Is dit mogelijk in excel?

Alvast dank voor het meedenken
Arie

 

[HSV]

In Excel kan je sorteren.

 

[arie2507]

Dat klopt helemaal, maar om het wat makkelijker voor mezelf te maken is een druk op een knop eenvoudiger.

Net zoals in bijv. je email programma wanneer je op datum klikt de volgorde veranderd..

 

[JanBG]

Kan je bestand niet helemaal volgen met twee keer verloop, maar als Vereniging in kolom A staat en de rest in de kolommen daarnaast zou dit moeten werken:

Sub Verloop1()

    Range("D3:D5").Select
        ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("D3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A3:F5")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

voor het eerste verloop.

En:

Sub Verloop2()
   Range("F3:F5").Select
        ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("F3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A3:F5")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

voor het tweede verloop

 

[arie2507]

En dat is precies hetgeen het me om gaat.
Daar moet ik zeker wel uitkomen.

Hartelijk dank voor het meedenken.

vr. gr.
Arie

 

[VenA]

Ik zie nergens een bestand dus is het al helemaal niet te volgen. Nog steeds select in de code en niet meer dan een macro-opname @JanBG?

Cells(3, 4).CurrentRegion.Sort Cells(3, 4), 2, , , , , , xlYes