Guest User

Untitled

a guest
Jun 18th, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. For i = 2 To access.UsedRange.Rows.Count
  2.  
  3. If access.Cells(i, 11) = "LOW" Or "TBD" Then
  4. Rows(i).delete
  5. Exit For
  6. End If
  7.  
  8. Next i
  9.  
  10. If access.Cells(i, 11) = "LOW" Or access.Cells(i, 11) = "TBD" Then
  11.  
  12. With access.Cells(i, 11)
  13. If .Value2 = "LOW" Or .Value2 = "TBD" Then Rows(i).Delete
  14. End With
Add Comment
Please, Sign In to add comment