Delete Rows - adding a second condition
I am using the following code, which deletes a row if a valid location is
not found in column F. Now I need to add a second criteria so that if "NE",
"NW","SW", or "SE" is in column F, OR if "criteria1", "criteria2", ...
"criteria10" is in column L THEN the row must be saved ELSE
EntireRow.Delete. Can anyone help me nest this?
Also, I have read that Case statements are faster and am wondering if I
should be doing that instead. Again, I would need help with the syntax.
Thanks in advance!
Patti
Private Sub DeleteRows()
' used range is base on column A
' if a row is valid, it must have a location in column F
LstRow = Cells(Rows.Count, "a").End(xlUp).Row
For r = LstRow To 10 Step -1
If Not Cells(r, 6) = "NE" Then
If Not Cells(r, 6) = "NW" Then
If Not Cells(r, 6) = "SW" Then
If Not Cells(r, 6) = "SE" Then
Cells(r, 6).EntireRow.Delete
End If
End If
End If
End If
Next r
End Sub
|