Regel verwijderen

[wilmaart]

Goedemorgen Allen

Met een beetje knippen en plakken heb ik een programmatje gemaakt, alleen krijg ik een melding als ik dmv een knop een regel wil verwijderen.

wat doe ik niet goed?

mvgr, Wilmaart

 

[VenA]

Om lege rijen te verwijderen kan je deze proberen.

Sub VenA()
With Sheets(1).Range("b19:x331")
    .AutoFilter 1, "="
    .Offset(1).Columns(1).SpecialCells(12).EntireRow.Delete
    .AutoFilter
End With
End Sub

 

[wilmaart]

Beste VenA

bedankt het werkt Fantastisch, maar kan je uit legen wat ik in eerste instantie verkeerd heb gedaan.

mvgr, Wilmaart

 

[VenA]

Om problemen in een code te vinden kan je vanuit de VB editor met <F8> door de code wandelen. Je ziet dan op welke regel het fout gaat. Uit mijn hoofd: je had het filter nog aanstaan op de range b19:x1000 en wilde een nieuw filter instellen op de range b19:b1000 en dat zal de eerste fout opleveren.:d

 

[HSV]

Je kunt er voor zorgen dat je eerst de filters verwijderd alvorens nieuwe te plaatsen.
En ik zou het op rij 18 plaatsen.

Sub hsv()
With Sheets(1).Range("b18:b331")
 If .Parent.AutoFilterMode Then .Parent.AutoFilterMode = False
    .AutoFilter 1, "="
    .Offset(1).SpecialCells(12).EntireRow.Delete
    .AutoFilter
End With
End Sub

 

[wilmaart]

Bedankt Allen, voor het oplossen van mijn vraag.

prettige dag verder.