Bom dia!!
Veja se isso te ajuda.
Sub del_OK()
Application.ScreenUpdating = False
Range("g2").Select
While ActiveCell.Value <> ""
If IsError(ActiveCell.Offset(0, 2).Value) Then
ActiveCell.Offset(1, 0).Select
Else
If ActiveCell.Value >= ActiveCell.Offset(0, 2).Value Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
End If
Wend
Application.ScreenUpdating = True
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 29/01/2012 7:39 am