Sorteren met VBA (Macro)?

[sdk]

Ik heb een macro werkende die iets uit een csv importeerd en vervolgens ook de worksheet de goede naam geeft.

Echter de data komt in verkeerde volgorde aan, hij zou ascending op datum (1e kolom) moeten staan.

edit gelukt met deze code:

Sub sort4()

  
 Columns("A:C").Select
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A1:C65536")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        
End Sub

Dus topic kan dicht.

 

[Ron321]

Zet de vraag op opgelost aub.