Automatically delete row based on keyword-VBA

[yoyo4]

HI,
Need to automatically delete row that contain certain keywords.


Example -:
i have data sheet with 5 column.(Name,Last Name,Company Position,Email Address ,Phone Numbers )
If any of keywords are located in any cell (as part of a word, email, address, job title, company, etc,) need to delete the row automatically.
(keywords-loan,financial,bank,equity)

Thank you.

[Pecoflyer]

Let me ask again, is this a one-shot task ?

[yoyo4]

hi,
its not one-shot task.

[NoSparks]

perhaps something along the lines of this

Sub RemoveKeyWordRows()

Dim lr As Long, i As Long, cel As Range, temp As String

Application.ScreenUpdating = False
lr = Cells(Rows.Count, "A").End(xlUp).Row

For i = lr To 2 step -1
    temp = ""
        For Each cel In Range(Cells(i, "A"), Cells(i, "E"))
            temp = temp & cel.Value & " "
        Next cel
        
    '(keywords-loan,financial,bank,equity)
    If InStr(temp, "loan") > 0 Or _
       InStr(temp, "financial") > 0 Or _
       InStr(temp, "bank") > 0 Or _
       InStr(temp, "equity") > 0 _
       Then Rows(i).Delete
Next i
Application.ScreenUpdating = True

End Sub

Instr is case sensitive.

[Logit]

.
Or maybe :

Option Explicit

Sub sbDelete_Rows_With_Specific_Data()
Dim lRow As Long
Dim iCntr As Long
Dim iCol As Long
iCol = 26   'add cols here
lRow = 20   'add rows here
For iCol = 1 To 26  'match last col number here with total cols above
    For iCntr = lRow To 1 Step -1
        If Cells(iCntr, iCol) = "loan" Or Cells(iCntr, iCol) = "financial" _
        Or Cells(iCntr, iCol) = "bank" Or Cells(iCntr, iCol) = "equity" Then ' You can change this text
            Rows(iCntr).Delete
        End If
    Next
Next
End Sub