Rij verwijderen en invoegen.

[Noord2011]

Beste mensen,

Ik ben op zoek naar een oplossing voor het blokkeren dat aantal rijen (Rows) niet verwijderd kunnen worden.
Rijen geel gemarkeerd mag niet verwijderd kunnen worden met het knop “Rij verwijderen”.

Voor rijen in voegen telt het zelfde, tussen geel gemarkeerde rijen mag geen rij ingevoegd worden met de knop” Rij invoegen”.

Wie kan me helpen

Alvast bedankt.

Zie bijlage.

 

[sylvester-ponte]

met zoiets gaat het lukken

Private Sub CommandButton1_Click()
    If Intersect(ActiveCell, [welVerwijderbaar]) Is Nothing Then Exit Sub
    Rows(ActiveCell.Row).Select
    Selection.Delete Shift:=xlUp
End Sub

welVerwijderbaar is een naam van een gebied
die naam moet je wel zelf maken.
selecteer het gebied waar de rijen verwijderd mogen worden
en typ de naam van dit gebied in (linksboven zit het naamvak)

die andere kun je zelf verzinnen

groet sylvester

 

[Noord2011]

Bedankt.

Werkt prima!:thumb: