Sorteren met VBA

[danny147]

Beste,

Ik gebruik volgende code:

Sub sorteren()
    Range("D3:G102").Sort Key1:=Range("G3"), Order1:=xlDescending
End Sub

Deze sorteerd oplopend, maar in G3:G102 staan formule.
Dus hij plaats mijn gegevens onderaan en bovenaan staan dan de lege cellen.

Wat moet ik in de code aanpassen zodat deze werkt ?

Groetjes Danny. :thumb:

 

[HSV]

Niet getest Danny.

   Range("D3:G102").Sort Key1:=Range("G3"), [COLOR="red"]SortOn:=xlSortOnValues,[/COLOR] Order1:=xlDescending

 

[danny147]

Beste HSV,

Hij geeft compileerfout weer nl.

SortOn:=

Kan het benoemde argument niet vinden.

Zie bijgevoegd bestandje.

Groetjes Danny :thumb:

 

[HSV]

Zo zou het moeten werken.

Range("D3:G" & WorksheetFunction.CountIf(Range("g3:g102"), ">0.01")).Sort Range("G3"), xlDescending

 

[zapatr]

Zo zou het moeten werken.

Range("D3:G" & WorksheetFunction.CountIf(Range("g3:g102"), ">0.01")).Sort Range("G3"), xlDescending

Niet helemaal juist.
De sortering moet t/m rij 17 lopen.
En het eenvoudigst is om Count te gebruiken.

Sub sorteren()
Range("D3:G" & WorksheetFunction.Count(Range("G3:G100")) + 2).Sort Key1:=Range("G3"), Order1:=xlDescending
End Sub

 

[HSV]

Mijn excuses, je hebt gelijk.
Ik dacht dat het werkte, maar niet goed getest: Tijdstip??

 

[danny147]

Beste zapatr en HSV,

Bedankt voor jullie nachtelijke vondst

Groetjes Danny. :thumb: