Macro meerdere keer moeten starten

[Vendeburk]

Beste Lezers,

Ik heb de volgende Code:

Public Sub pfDelRows()

totalrows = ActiveSheet.UsedRange.Rows.Count

For Row = 1 To totalrows
    If Cells(Row, 2).Value = "" Then
    Rows(Row).Delete
    End If
Next Row

End Sub

Nu werkt deze code wel. alleen nu moet ik de macro meerdere keren starten om alles te verwijderen.
Hoe kan ik in 1 keer alle rijen verwijderen waar geen waarde in kolom B staat?

 

[Cobbe]

Om rijen te verwijderen moet je van onder naar boven werken:

Public Sub pfDelRows()

totalrows = ActiveSheet.UsedRange.Rows.Count

For Row = totalrows To 1 step -1
    If Cells(Row, 2).Value = "" Then
    Rows(Row).Delete
    End If
Next Row

End Sub

 

[jkpieterse]

Of:

Sub DelEmpty()
    Intersect(Activesheet.usedrange,Range("A:A")).SpecialCells(xlCellTypeBlanks).Entirerow.Delete
End Sub

 

[Vendeburk]

Bedankt voor de reactie.

Ik heb de code van jkpieterse geprobeerd,

Intersect(ActiveSheet.UsedRange, Range("B:B")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Maar ik krijg dan een Foutmelding 1004
Er zijn geen Cellen gevonden, maar er zijn zeker legen cellen in kolom B.
Wat doe ik fout?

 

[jkpieterse]

Kennelijk niet echt leeg. Waarshcijnlijk staat er een lege tekst in. Als je op kolom B control+pijl omlaag doet, springt de cursor dan meteen naar het einde? Dan zijn die cellen dus niet echt leeg.

 

[Vendeburk]

Ik heb dit geprobeerd en je hebt helemaal gelijk.

Nu heb ik deze cellen geselecteerd en op delete gedrukt. Nu werk de marco wel.
Kan dit dan ook worden meegenomen in een macro?

 

[Timshel]

Dan kun je beter de macro van Cobbe uit #2 gebruiken.

 

[Vendeburk]

Deze werkt wel goed.
Is alleen wat langzamer.

Bedankt voor het meedenken.