Macro getallen "< 0" of leeg "" verwijderen met autofilter?

[leonied]

Hallo,
Na veel zoeken en allerlei codes geprobeerd te hebben, kom ik er toch niet uit.
In bijgevoegd document ben ik begonnen met het schrijven van een macro.
De eerste handelingen doet hij naar behoren, maar om de informatie in de draaitabellen te krijgen die ik ook daadwerkelijk wil zien, mis ik een essentiële stap.
Ik wil graag dat in Kolom H (aankomst-gepland) van alle lege cellen en alle cellen met waarde <0, de gehele rij wordt verwijderd.
Zou iemand mij kunnen helpen met een juiste code?
Jullie hulp is meer dan welkom!!
gr. Leonie

 

[gelens]

Leonied,

Zoiets :

Sub regelsverwijderen()

For I = Range("H3000").End(xlUp).Row To 1 Step -1
If Range("H" & I) <= 0 Then
Rows(I).Select
Selection.Delete

End If
Next
End Sub

 

[leonied]

Beste Gerard,
Bedankt voor je reactie. Het werkt echter nog niet optimaal. Er zijn nog diverse lege cellen die overblijven, evenals negatieve getallen.
Het lijkt alsof hij er op een bepaald moment mee stopt...
Gr. Leonie

 

[gelens]

Leonied

Ik snap niet helemaal wat je bedoeld. In mijn bestand zijn alle lege belden en velden met een getal <=0 verwijdert.

 

[gelens]

Leonied,

Heb jij het getest op het voorbeeld bestand of op een groter bestand ?
Deze macro start vanaf regel 3000, dus als jij een bestand hebt dat groter is dan kan dat kloppen.
Even het getal in de macro aanpassen.
:thumb:

 

[leonied]

Foutje in het uitvoeren!! Het werkt, heel erg bedankt!!

gr. Leonie

 

[snb]

Sub tst()
    With Cells(1).CurrentRegion.Columns(8)
        .AutoFilter 1, "<=0", 2, "="
        .Offset(1).SpecialCells(12).EntireRow.Delete
        .AutoFilter
    End With
End Sub

 

[leonied]

Beste Gerard,
Het was inderdaad een voorbeeld bestand, zoals gezegd werkt het nu optimaal, nogmaals dank!!
Leonie