Delete Rows 2 Text Strings

[Papi]

The below works to delete if column P shows "Paid" and column X shows "Final". I suspect there is a better way to write this. Could somebody advise please?

Sub DeleteTwoDataSets()
    Last = Cells(Rows.Count, "P").End(xlUp).Row
    For i = Last To 1 Step -1
        If (Cells(i, "P").Value) = "Paid" Then
            Cells(i, "P").EntireRow.Delete
        End If
    Next i
   Last = Cells(Rows.Count, "X").End(xlUp).Row
    For i = Last To 1 Step -1
        If (Cells(i, "X").Value) = "Final" Then
            Cells(i, "X").EntireRow.Delete
        End If
    Next i
End Sub

 

[VoG]

Try

Sub DeleteTwoDataSets()
    Last = Cells(Rows.Count, "P").End(xlUp).Row
    For i = Last To 1 Step -1
        If Cells(i, "P").Value = "Paid" And Cells(i, "X").Value = "Final" Then Rows(i).Delete
    Next i
End Sub

 

[vds1]

Try,

Sub DeleteTwoDataSets()
With Columns("P")
    .Replace "Paid", "#N/A", xlWhole
    .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With
With Columns("X")
    .Replace "Final", "#N/A", xlWhole
    .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With
End Sub

 

[hiker95]

Papi,

Try the following:

Sub DeleteTwoDataSets_V2()
' hiker95 , 09/17/2014, ME805971
Dim Last As Long, i As Long
Application.ScreenUpdating = False
Last = Cells.Find("*", , xlValues, xlWhole, xlByColumns, xlPrevious, False).Column
For i = Last To 1 Step -1
  If Cells(i, "P").Value = "Paid" Or Cells(i, "X").Value = "Final" Then
    Rows(i).Delete
  End If
Next I
Application.ScreenUpdating = True
End Sub

 

[Papi]

Thanks for all the help.

 

[hiker95]

Papi,

You are very welcome. Glad we could help.

And, come back anytime.