VBA Delete multiple rows based on find criteria

[wendya]

Hi Everyone,

I am a newbie! I was hoping for some assistance with the following code. I am looking to have this code, find the criteria in a sheet and delete ALL rows with that criteria. This code only deletes the first record it comes across. I tried to play with a loop but I am not sure how to end it, and keep resulting in errors. Can anyone help, please? I am sure it is an easy fix... but every code I look at on while searching keeps giving me errors. This looks at a field "Reg4" value and then deletes the line off the sheet.

'delete the rows from quotes sheet
        Set findvalue = Sheet10.Range("a:a").Find(What:=Reg4, LookIn:=xlValues)
        findvalue.EntireRow.Delete

 

[Llupo01]

Hello Wendya,

can you post whole code including variables definitions etc? .. Thank you.

regards,
Tom

 

[Llupo01]

Try this, maybe it could be helpful ( you must define your reg4 variable again)....

Sub test()

Dim i As Integer
Dim lr As Long

below pls specify your variable
'dim reg4 as ?????

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = lr To 1 Step -1

If Cells(i, 1) = reg4 Then
    Rows(i).Delete
End If


Next

        
        
End Sub