Удалить все строки на основе Col N Критерии

Question

Я не могу понять, почему следующий код не удалит всю строку, если ячейка в Col N имеет слово "Completed".

Sub DeleteRowBasedOnCriteria()  
Dim RowToTest As Long  

For RowToTest = Cells(Rows.Count, 14).End(xlUp).Row To 2 Step -1  

With Cells(RowToTest, 14)  
    If .Value <> "Completed" _  
    Then _  
    Rows(RowToTest).EntireRow.Delete  
End With  

Next RowToTest  

End Sub 

Answer 1

Я, наконец, сделал это для работы со следующим кодом:

Sub DeleteRowBasedOnCriteria2()
Sheets ("InProcess"). Выберите

Dim RowToTest As Long 

    For RowToTest = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 
     With ActiveSheet.Cells(RowToTest, 14) 
      If .Value = "Completed" Then ActiveSheet.Rows(RowToTest).EntireRow.Delete 
    End With 
    Next RowToTest 

End Sub

Answer 2

Проблемы с продолжениями:

Sub DeleteRowBasedOnCriteria() 
    Dim RowToTest As Long 

    For RowToTest = Cells(Rows.Count, 14).End(xlUp).Row To 2 Step -1 
     With Cells(RowToTest, 14) 
      If .Value <> "Completed" Then Rows(RowToTest).EntireRow.Delete 
     End With 
    Next RowToTest 

End Sub 

Answer 3

Это предложение является минималистичный, но ...

Sub DeleteRowBasedOnCriteria()
Dim RowToTest As Long

Для RowToTest = Cells (Rows.Count, 14) .End (xlUp) .Row To 2 Step -1

С Cells (RowToTest, 14)
Если .Value <> "Completed" _
Тогда _
.EntireRow.Delete
End With

Следующая RowToTest

End Sub