Delete Row

[tony_d]

Is there a quick way to delete a full row if a certain word appears in the line.


So if Column d the word 'result' appears I can run a macro to delete the whole row

Thanks in advance people

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("D" & i).Value Like "*result*" Then Rows(i).Delete
Next i
End Sub

 

[dave3009]

You could filter off the dataset

Sub DeleteRows()
Dim deleteWhat As Variant
Dim lstRw As Long
deleteWhat = InputBox("Delete all rows that contain....?")
lstRw = Range("D" & Rows.Count).End(xlUp).Row
With ActiveSheet.Range("$D$1:$D$" & lstRw)
    .AutoFilter Field:=1, Criteria1:="=*" & deleteWhat & "*"
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
End With
End Sub