Delete Rows with Multiple Strings

[Papi]

I have the following and it works for any row that starts with the word "Complete". What do I need to do to also include deleting rows that start with "801730-TECH-YEG-" ?

  Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp))
    Do
    Set c = SrchRng.Find("*Complete*", LookIn:=xlValues)
    If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing

 

[WarPigl3t]

Insert that string where the word Complete is in the code.

 

[Papi]

There are many variables eg.
Complete
Completed
Complete in March
Completed Last Year etc.

 

[Rick Rothstein]

I have the following and it works for any row that starts with the word "Complete". What do I need to do to also include deleting rows that start with "801730-TECH-YEG-" ?

  Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp))
    Do
    Set c = SrchRng.Find("*Complete*", LookIn:=xlValues)
    If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing

What is in Column A... constants or formula?

 

[Papi]

What is in Column A... constants or formula?

Constant (Text)

 

[Rick Rothstein]

Constant (Text)

Okay, give this macro a try then...

Sub DeleteCertainRows()
  Dim Addr As String
  Addr = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Address
  Range(Addr) = Evaluate(Replace("IF(ISNUMBER(SEARCH(""complete"",@)),""#N/A"",@)", "@", Addr))
  Range(Addr) = Evaluate(Replace("IF(ISNUMBER(SEARCH(""801730-TECH-YEG-"",@)),""#N/A"",@)", "@", Addr))
  Columns("A").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
End Sub

 

[Papi]

Okay, give this macro a try then...

Sub DeleteCertainRows()
  Dim Addr As String
  Addr = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Address
  Range(Addr) = Evaluate(Replace("IF(ISNUMBER(SEARCH(""complete"",@)),""#N/A"",@)", "@", Addr))
  Range(Addr) = Evaluate(Replace("IF(ISNUMBER(SEARCH(""801730-TECH-YEG-"",@)),""#N/A"",@)", "@", Addr))
  Columns("A").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
End Sub

Works like a charm. Thanks very much Rick.