macro-verwijderen-van-rijen-onder-condities

[TinekeBerg]

http://www.helpmij.nl/forum/showthread.php/237132-Excel-macro-verwijderen-van-rijen-onder-condities

Ik heb de macro uit deze vraag gekopieerd, echter verwijderd excel een aantal regels maar lang niet alle, als ik de macro meerdere keren uitvoer dan verwijderd excel uiteindelijk wel alles.
Weet iemand waardoor dit komt?

Dit is de Macro die ik gekopieerd heb:

Public Sub pfDelRows()

totalrows = ActiveSheet.UsedRange.Rows.Count

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

End Sub


Dank je wel alvast.

 

[VenA]

Omdat je rijen van beneden naar boven moet verwijderen.

Volgens mij is dit voldoende

Sub VenA()
  Columns(8).SpecialCells(4).EntireRow.Delete
End Sub

 

[TinekeBerg]

ik heb nu dit ingevoerd en dan krijg ik een foutmelding, ik kan wel wat met macro's maar lang niet alles, en VBA snap ik al helemaal niks van, zou het wel graag willen leren.

Public Sub pfDelRows()
Sub VenA()
Columns(8).SpecialCells(4).EntireRow.Delete
End Sub

End Sub

Foutmelding is:
Compileerfout:
Er wordt End Sub verwacht

Wat doe ik fout?

 

[VenA]

Haal de regel Public Sub pfDelRows() en 1 keer End Sub weg.

 

[TinekeBerg]

dank je wel, het werkt!