VBA - Delete rows with certain data

[ChrisFoster]

Hi all,

I have some coding that I have developed over time - but I'm stuck at one particular point.

In 'column B' I have a list of dates, they are all in the same format (UK). What I want is some coding that deletes any row that has a date from the current year (I'll be using this code going into next year so ideally the code will already know what year it currently is rather than just using '2019').

Please can someone help me?

Kind Regards,

Chris

 

[Akuini]

Here's another way to try:

Sub delYear()
    With Range("B1:B" & Cells(Rows.count, "B").End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:=xlFilterThisYear, Operator:=xlFilterDynamic
        On Error Resume Next
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        .AutoFilter
    End With
End Sub

 

[ChrisFoster]

Did you use the exact same code or you change something, maybe the range?
I'm curious because you said earlier you need to change .AutoFilter Field:=1 to .AutoFilter Field:=2

You absolute legend!

When I change the autofilter field from 1 to 2 that works perfectly.

Thank you so much!

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.