Rijen verwijderen na verstreken maanden

[DANIEL162]

Ik heb een progamma gemaakt wanneer er in kolom A een 0 voorkomt deze rijen verwijderd worden.
Code:

 Private Sub CommandButton1_Click()
 Range("A1").Select
 Do While ActiveCell.Value <> ""
 If ActiveCell.Offset(0).Value = 0 Then
 ActiveCell.Rows.EntireRow.Select
 Selection.Delete Shift:=xlUp
 Else
 ActiveCell.Offset(1, 0).Range("A1").Select
 End If
 Loop
 End Sub

Mijn vraag is nu : Weet iemand raad wanneer er datums in kolom A staan, die ik kan verwijderen als de datum bijvoorbeeld 3 maanden verstreken is.

 

[BikerBill64]

If ActiveCell.Offset(0).Value < (VANDAAG() - 90) Then

 

[DANIEL162]

Foutmelding
ik heb het ondertussen gevonden

 

[HSV]

Het zou gewaardeerd worden hoe je het hebt opgelost voor/door de zoekers op het forum.
Bvd.

 

[DANIEL162]

OK Harry

Jan 31 dagen feb 27 dagen Maart 31 dagen = totaal 89 dagen
maart 31 dagen april 30 dagen mei 31 dagen = totaal 92 dagen
met de formule van Biker kan het een paar dagen schelen.

Code:
If ActiveCell.Offset(0).Value <= DateSerial(Year(Now), Month(Now) - 3, Day(Now)) Then


m.v.gr. Daniel

 

[DANIEL162]

Bekijk bijlage Rijen verwijderen na verstreken maanden.xls

 

[HSV]

Daniel

Februari heeft 28 dagen, in een schrikkeljaar 29.
Ofsset(0) kan je verwijderen (je gaat in de offset nul rijen omhoog of omlaag).
Is onderstaande niet sneller over een groter bereik?

Private Sub CommandButton1_Click()
 With Columns(1)
  .AutoFilter 1, "<=" & CLng(DateSerial(Year(Now), Month(Now) - 1, Day(Now))), , , False
  AutoFilter.Range.Offset(1).SpecialCells(xlVisible).EntireRow.Delete shift:=xlUp
  .AutoFilter
 End With
End Sub