Ik dacht het verder alleen aan te kunnen. NIET dus!!
Met de knop "Verlopen datums verwijderen" worden dus de rijen met verlopen datums verwijderd.
Maar voor elke verwijderde rij, zou er een nieuwe rij (met formules) moeten bijgekopieerd worden.
Zodat altijd tot aan rij 40 beschikbaar is.
Heel het blad ombouwen naar tabellen is geen optie meer.
Is dit nog mogelijk?
Bekijk bijlage 179280
Met de knop "Verlopen datums verwijderen" worden dus de rijen met verlopen datums verwijderd.
Maar voor elke verwijderde rij, zou er een nieuwe rij (met formules) moeten bijgekopieerd worden.
Zodat altijd tot aan rij 40 beschikbaar is.
Heel het blad ombouwen naar tabellen is geen optie meer.
Is dit nog mogelijk?
Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For Each cl In Range("D7:D40")
If cl <> "" And cl < Date Then
cl.EntireRow.Delete
'Hier zou een stukje code moeten komen, dat telkens als er een rij verwijderd wordt
'er een nieuwe lege rij met formules bijgekopieerd wordt
'zodat altijd tot rij 40 beschikbaar is voor invullen
End If
Next
Application.ScreenUpdating = True
End Sub
Bekijk bijlage 179280