selectie wissen met vba

[stefano]

Ik heb een macro die een selectie maakt van lege cellen op een werkblad. De inhoud van deze rijen mag gewist worden.

Sub hecto()

    Selection.AutoFilter Field:=10, Criteria1:="="
    Range("4:4,19:19").Select
    Range("A19").Activate
    Selection.ClearContents
    Selection.AutoFilter Field:=10

    Selection.AutoFilter Field:=9, Criteria1:="="
    Rows("27:27").Select
    Selection.ClearContents
    Range("G4").Select
    Selection.AutoFilter Field:=9

End Sub

Met bovenstaande macro selecteer ik rij 4 en 19 , daarna rij 27 en delete ik de inhoud. Wanneer ik het bestand vernieuw kunnen dit andere rijen zijn die geselecteerd en gewist moeten worden.

Hoe selecteer ik in vba de rijen die leeg zijn nadat ik ze geselecteerd heb mbv autofilter?

Bekijk bijlage hecto.xls

 

[HSV]

Hoe komt die 0 (nul) tot stand in kolom J.
Als die er niet stond en de cel was geheel leeg, zou het zo kunnen.

Range("A4:J" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Ik kan nog een variant bedenken, maar dan zullen de cellen wel enige gelijkenissen moeten vertonen.
Sommige cellen die leeg lijken vertonen een spatie, een ander een nul.

Daar is ook wel een code voor te maken, maar wat zijn de voorwaarden.
Staan er soms ook twee spaties in?

Graag meer iets duidelijkheid.

 

[snb]

of

sub maling()
   Blad1.cells(4,1).currentregion.columns(9).resize(,2).specialcells(4).entirerow.delete
end sub