Rij invoegen/verwijderen

[wieter]

Met een knop worden de rijen met verlopen datums verwijderd, en één nieuwe rij (met formules) wordt ingevoegd.
Dit werkt niet echt naar mijn zin.

Beter zou zijn dat er evenveel nieuwe rijen(met formules) bijgevoegd worden, als er rijen verwijderd zijn.
Hoe moet de code dan aangepast worden?

Bijkomend probleem: Telkens als er rijen verwijderd/bijgevoegd worden, wordt heel de VWO in de war gestuurd.
Hoe kan dit opgelost worden?

Dank.

Bekijk bijlage 177032

 

[Haije]

in plaats van rijen verwijderen is het wellicht een optie om ze leeg te maken; dan kunnen ze opnieuw gebruikt worden, incl de formules en de vwo
volgens mij lukt dat hiermee

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

For Each cl In Range("D7:D40")
If cl <> "" And cl < Date Then
cl.Rows.EntireRow.ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub

 

[wieter]

Juist Haije, leeg maken is beter dan verwijderen.
Maar met jou code wordt de hele rij leeg gemaakt (ook de formules)

Cl.Rows.EntireRow.ClearContents

Enkel Range ("A tot D") van de betreffende rij moet leeg gemaakt worden.
Hoe pas ik dit toe in de code?

Bedankt voor de reactie

 

[Haije]

Oeps, iets te enthousiast, dit moet het doen:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For Each cl In Range("D7:D40")
If cl <> "" And cl < Date Then
Range(cl.Offset(, -3), cl).ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub

 

[wieter]

Ik was zelf aan het prutsen met Offset(), maar kwam niet tot een oplossing.
Jou aanpassing werkt perfect.
Bedankt voor de oplossing. RESPECT voor je inzet.