Entire Row Delete VBA

[AndrewGKenneth]

Hi There,

I am having an issue with some code I have created. What I would like to achieve is on my worksheet "Drawings" if the value in Column B is the same as Column F then the entire row will be deleted automatically.

Here is the code I currently have:

Dim rng As Range, DelRng As Range
Dim LastRow As Long
Dim Value As String

On Error Resume Next
If Not Sheets("Drawings").Range("B2").Value = "" Then
Lrow = Sheets("Drawings").Range("$B$2:B2")
For Each rng in DelRng
If rng.Value = Sheets("Drawings").Range("F2").Value then
Rng.EntireRow.Delete
End If
Next
End If
End Sub

The problem is with my current code it is only deleting the first row not scanning through the entire sheet and deleting any rows where B and F have the same value.

Could someone please assist me? Thanks in advance!

Kind Regards,
Andrew

 

[mikerickson]

When deleting is is best to work from bottom to top.

Dim i As Long

With ThisWorkbook.Sheets("Drawing").Range("B:B")
    With Range(.Cells(.Rows.Count,1).End(xlup), .Cells(2,1))
        For i = .Rows.Count to 1 Step -1
            With .Cells(i,1).EntireRow
                If .Range("B1").Value = .Range("F1").Value Then
                    .Delete shift:=xlUp
                End If
            End With
        Next i
    End With
End With

 

[AndrewGKenneth]

Thanks so much Mike, I will give that a go when I am back in the office on monday and let you know how it goes.

All the best,
Andrew

 

[AndrewGKenneth]

That all worked perfectly, thanks again Mike your help is much appreciated