Meerdere opvolgende rijen verwijderen

[Pauw Gauwes]

Allereerst de allerbeste wensen voor dit nieuwe jaar, dat we met zijn allen maar gezond mogen blijven.

Om te beginnen misschien een eenvoudige oplossing voor mijn vraag,heb zitten neuzen in de gestelde vragen maar kom er niet uit.

Ik wil via een macro zoeken naar een bepaalde waarde in een cel, als die waarde voldoet dan moet de gehele rij waarin deze waarde staat plus de opvolgende 12 rijen verwijderd worden. Dit moet diverse malen binnen het werkblad herhaald worden.

Benieuwd naar het antwoord

Groet

 

[exhelp]

Sub Methode2()
 
Dim i As Long
 
With Application
 
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
 
End With
 
With ActiveWorkbook.Sheets(1)
 
    For i = 100000 To 1 Step -1
 
        If .Cells(i, "A") = "voorwaarde" Then
        .Cells(i, "A").Offset(1, 0).Resize(12, 1).EntireRow.Delete

       
        End If
 
    Next i
 
End With
 
With Application
 
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
 
End With
 
End Sub

 

[Pauw Gauwes]

Exhelp

Dit is de goede oplossing, met een kleine aanpassing, ik heb Offset(0, 0) gewijzigd omdat ook de rij waarin de voorwaarde staat verwijderd moet worden. Bedankt voor het meedenken

 

[exhelp]

Graag gedaan :thumb:

 

[Warme bakkertje]

Die Offset heb je helemaal niet nodig dan.

.Cells(i, "A").Resize(13).EntireRow.Delete

 

[Pauw Gauwes]

Nee inderdaad, dan wordt het nog simpeler, bedankt voor de tip