ouder dan....

[pasan]

Hallo
hieronder staat code om in een kolom te zoeken naar datums ouder dan zoveel uur
ik wilde graag zoeken naar maanden
en in een andere kolom naar jaren helaas kom ik er niet uit

With ActiveWorkbook.Sheets("blad1")
    LastRow = cells(Rows.Count, "CP").End(xlUp).Row - 1

For a = 1 To LastRow
If .cells(a, "CQ") = "" Then GoTo volgende
    If .cells(a, "CP") <= Date - 180 Then 
[COLOR="#FF0000"]hier wil ik graag dat alle datums verwijderd worden[/COLOR]
      
volgende:
Next a
End With

 

[snb]

Waarom geen autofilter ?

 

[pasan]

je bedoeld om ze daarmee te verwijderen?
als het alleen bedoeld is om de rijen te verbergen werkt dat voor mij in dit geval niet.
de cellen dienen echt verwijderd te worden omdat in dit gebied via formules gezocht wordt naar datums met een beperkt bereik

 

[pasan]

gevonden................

heb het eindelijk gevonden

If .cells(A, "CP") <= DateSerial(Year(Now) - 1, Month(Now), Day(Now)) Then

met deze kun je of op jaar of op maand of op dag zoeken, in het voorbeeld dus 1 jaar eerder