VBA- Delete a specific row with text+delete the row before+ delete the row after

[tzav]

Hi,

I need to delete with VBA every row that contains the value "00/00/0000"+ one row before and one row after (3 rows in total).
the values are in column m.

For example:
row 1
row 2
row 3- 00/00/0000
row 4
row 5
row 6- 00/00/0000
row 7
row 8
etc...

In this example, the result needs to be that only rows 1+8 stay.

Thanks

 

[tzav]

Updating igold's code like this should do what you want:

Sub DeleteZeroDates()

    Dim i  As Long
   
    For i = Cells(Rows.Count, 13).End(xlUp).Row To 1 Step -1
        If Right(Trim(Cells(i, 13)), 10) = "00/00/0000" Then
            Cells(i - 1, 13).Resize(3).EntireRow.Delete
        End If
    Next
   
End Sub

It worked!
Thanks to both of you

 

[igold]

You're welcome. We were both happy to help. Thanks for the feedback.

 

[Joe4]

It worked!
Thanks to both of you

I just made one minor tweak to igold's code.
He did most of the work!