Bom dia!!
Em qual coluna está a palavra "entregue"?
Nçao testado!!!!!!!!
Sub AleVBA_13005()
Dim i As Long, lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = lastrow To 1 Step -1
If Cells(i, "A").Value = "entregue" Then Cells(i, "M").EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub
Att
Postado : 18/09/2014 8:00 am