filter in code aanpassen

[Depant]

Hallo allemaal,

Graag zou ik een code aangepast willen hebben.
Ik heb de hele ochtend lopen prutsen, maar kan het niet vinden.
In de code waar ik een gedeelte van de selectie krijg, worden de laagste ipv van de hoogste geselecteerd.
Wie helpt mij



Bekijk bijlage FV2.xlsm

Sub laatste60()

Sheets("Verz").Range("a15:a3000").ClearContents

    With Sheets("alles")
      .Cells(1).CurrentRegion.AutoFilter 1, Filter(Application.Transpose([if(stam!O1:O31="","~",stam!O1:O31)]), "~", False), 7
      .Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(stam!n1:n10="","~",stam!n1:n10)]), "~", False), 7
      .AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("verz").Range("A15")
      .Cells(1).AutoFilter
    End With
    
        With Sheets("Verz")
      .Range("A15:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .Range("A15"), 1
      .Range("A15:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Offset(100).Clear
      .Range("A15:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .Range("A15"), 1
    End With

  End Sub

 

[edmoor]

Probeer dit eens:

.Range("A15:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .Range("A15"), [COLOR="#FF0000"]xlDescending[/COLOR]

 

[Depant]

Probleem opgelost!!

Hartelijk dank!!!
Scheelt weer wat hoofdpijn.:d

:thumb::thumb::thumb::thumb:

 

[edmoor]

Graag gedaan
1 = xlAscending
2 = xlDescending