Sortering datum nytt till äldsta

[pefra]

Jag vill få sortering på datum från nytt ner till det äldsta.

Med min kunskap behöver jag hjälp med denna kod.

Var ändrar jag i koden ?

Nu är det äldsta ned till nyaste.

 

 

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("P7:T22").Select
    ActiveWorkbook.Worksheets("fakturor").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("fakturor").Sort.SortFields.Add2 Key:=Range( _
        "P7:P22"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("fakturor").Sort
        .SetRange Range("P7:T22")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("P7").Select
End Sub

[pefra]

LÖST

 

[Cecilia]

2 timmar sedan, skrev pefra:

LÖST

 

Kan du skriva lösningen?

Det kan ju vara till nytta för någon annan.

[pefra]

Det fungerade helt plötsligt som jag ville och som koden här ovan är skriven, det enda som jag gjorde var omstart av excel.