Auto delete rows after a month passes

[Mystojam]

Hi,

i need to develop a macro which will be run on every first day of the month and checks for any data that has dates(Column C) that are 30 days old or more, and delete the entire row accordingly. Any idea how should i go with this?

DeleteRowAfterAMonth_Test.xlsm

[ragavan.sridar1]

Hi Mystojam,,

Try this..

Sub deloldata()

On Error GoTo errorhandler

Dim a
a = Date - 30


ActiveSheet.Range("A:H").AutoFilter Field:=3, Criteria1:="<=" & a
ActiveSheet.Range("a1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete Application.DisplayAlerts = True
errorhandler:
If ActiveSheet.AutoFilterMode = True Then
    Selection.AutoFilter
    Else
    End If
    
    

End Sub

[Mystojam]

Raga.

Hi and thanks for your attention. i tried your code but it seems like it deletes everything, including those that are less than a month. Any idea?

[ragavan.sridar1]

it works fine for me..

did you tried it with the recent data..

[Mystojam]

Raga,

the recent data all had dates that are more than a month old, so i change some of the dates to less than a month, but everything gets deleted too

[Mystojam]

Sorry, i misunderstood my task, now i need the macro to run on the 1st of every month to check for any data that are 30 days old or more and delete them accordingly. Is this possible?

[ragavan.sridar1]

Hi Mystojam,

Do you want the macro to automatically run on 1st of every month?

[Mystojam]

raga,

Yes but i have already sorted it out myself it's done. Sorry for the late reply and thank you for your attention! Much appreciated!

Mystojam