Do loop - select row when condition is met

[Linda21]

I am looping through rows to find a specific value. When the value is found, I want to select the row and delete the row. Then I continue through all the rows searching for the same value and deleting until the end.

I can't figure out the code to select the specific row containing the value when the value is met.

 

[VoG]

Here's an example

Sub DelRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("A" & i).Value = "Linda" Then Rows(i).Delete
Next i
End Sub

 

[JackDanIce]

Alternatively, filter your data for that specific value and delete all the visible rows and then unfilter your data. Saves you looping, which if you have a large data set, may be a quicker solution.

 

[obiron]

Is the value always in the same column.
Is the values always all of the cell value (i.e. you want cell = "ABC" or cell starts with "ABC")

Dim rngSearch as range
Dim rngDelete as range
Dim cCell as cell
Dim myValue as string
 
myValue = "whatever" ' put your search string ni here
Set rngSearch = ActiveSheet.range("A1:Z999") ' put your range in here
 
    For each cCell of rngSearch
 
    If c.Value = myValue Then
        Set rngDelete = ActiveSheet.Row(cCell.Row)
        rngDelete.Delete
    End If
 
 
Next cCell

 

[Linda21]

Thank you for all the good ideas. I got it by simply adding the following. I am really new and having trouble with basic coding references that are probably second nature to all of you.

Rows(SourceDataRow).Delete