Hoe verwijder je rijen met vba in excel?
In bepaald excelbestand wil ik graag alle rijen verwijderen als:
- in kolom B (bereik B28:B300) van die rij een bepaalde waarde voorkomt.
- Deze waarde wil ik kunnen invoeren in een inputbox.
Ik ben met zoeken op internet bij deze macro gekomen:
Sub rij_verwijderen()
Dim Projectnummer As String
Dim c As Range
Let Projectnummer = InputBox("Voer het projectnummer in dat u wilt verwijderen")
If Projectnummer = vbNullString Then Exit Sub
For Each c In Range("B28:B300”)
If c = Projectnummer Then c.EntireRow.Delete
Next
End Sub
Deze macro werkt voor slechts één rij per keer, maar ik wil dat alle rijen die die bepaalde waarde in cel B hebben verwijderd worden.
Iemand die weet hoe dit moet?
Alvast bedankt!
2.2K
2.2K keer bekeken