VBA code for deleting rows if cell references date of prior month or prior year from current month and current year.

[Job1997]

Hi Guys,

I am having trouble writing a VBA code that would delete all rows if a cell contains a date of the prior month and prior year of the current month and current year . So far I have this, but I am currently stuck. Any tips would be appreciated. Thanks.

It concerns the cell B


Sub MyDeleteRows()

Dim lastrow As Long
Dim y As Long

Sheets("Sheet1").Select
With Sheets("Sheet1")
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
For i = lastrow To 2 Step -1
If (Cells(i, 2).Value2 < Date) And _
((Month(Cells(i, 2)) < Month(Date)) Or _
(Year(Cells(i, 2)) < Year(Date))) _
Then Rows(i).EntireRow.Delete
Next i
End With

End Sub

 

[ER_Neha]

Hello, so basically you require the data of the current month for this year or current month of all years eg October month data of 2020 or October month data of 2019,2018,2020 ??

 

[ER_Neha]

And Please Provide a sample data using xl2bb