Dynamisch regels verwijderen van tabbladen

[radegroot]

Hallo mensen,

Ik heb een bestand met als eerste een tab met 'uitleg' en vervolgens 41 tabbladen met checklijsten. Van iedere checklist moet als eerste stap de regels die in kolom B op 'verwijderen' staan worden weggegooid, vervolgens de regels die in kolom C op 'verwijderen' staan. Indien in de toekomst een 42ste checklist wordt gemaakt, dan moet de macro ook deze meenemen.

Het wordt voor mij hoogtijd voor een beginnersboek VBA , maar kan iemand mij hiermee helpen?

Sub rijen_verwijderen()
Dim laatste_cel As Long
Dim iSheetCount As Integer
Dim iSheet As Integer
Dim row As Long
Application.ScreenUpdating = False
iSheetCount = ActiveWorkbook.Worksheets.Count
For iSheet = 2 To iSheetCount
On Error Resume Next
laatste_cel = Sheets(iSheet).Range("D65536").End(xlUp).row
For row = laatste_cel To 1 Step -1
If Sheets(iSheet).Range("D" & row).Value = "verwijder" Then Sheets(iSheet).Rows(row).Delete
Next row
Next iSheet
Application.ScreenUpdating = True
End Sub

 

[HSV]

Zo dan:

Sub rijen_verwijderen()
Dim laatste_cel As Long
Dim iSheetCount As Integer
Dim iSheet As Integer
Dim row As Long
Application.ScreenUpdating = False
iSheetCount = ActiveWorkbook.Worksheets.Count
For iSheet = 2 To iSheetCount
On Error Resume Next
laatste_cel = Sheets(iSheet).Range("A65536").End(xlUp).row
For row = laatste_cel To 1 Step -1
If Sheets(iSheet).Range("B" & row).Value = "verwijderen" Or Sheets(iSheet).Range("C" & row).Value = "verwijderen" Then
Sheets(iSheet).Rows(row).Delete
End If
Next row
Next iSheet
Application.ScreenUpdating = True
End Sub