Opgelost Rij verwijderen indien data in kolom a ouder is dan de huidige . .

[Catrysse59]

Hallo beste , Ik ben op zoek naar een formule waarbij de rij met data uit kolom a ouder dan de huidige automatisch kan verwijderen . In dit werkblad werd reeds een andere formule toegepast die u op het werkblad kan zien . Volgen ia zou ik een filter moeten toepassen maar dit lukt niet . Kan iemand me helpen aub .

 

[Warme bakkertje]

Wil je de rij fysiek verwijderen zet deze dan in de Thisworkbook module zodat bij het openen v/h bestand de oudere datums verwijderd worden.

Private Sub Workbook_Open()
    Dim i As Long
    Application.ScreenUpdating = False
    With Sheets("pension pay")
        For i = .Range("A" & .Rows.Count).End(xlUp).Row To 7 Step -1
            If .Cells(i, 1) < Date Then .Cells(i, 1).EntireRow.Delete xlUp
        Next
    End With
End Sub

 

[AD1957]

Of met een filter

Sheets("pension pay").Range("A5").AutoFilter 1, ">" & 1 * Date, xlFilterValues

 

[emields]

Of zo? Werkt nu met een knop kan ook veranderd worden naar worksheetactivate.
Er is nergens te vinden hoe je aan die datums komt, anders kan er ook een formule gemaakt worden die steeds een jaar vooruit werkt.

 

[Catrysse59]

Hartelijk dank aan ALLE mensen die op mijn vraag hebben gereageerd . Ik heb de code van Warm bakkertje gebruikt en alles werkt perfect .