alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Deletar Linahs Baseado em criterios Sex Out 11, 2013 7:47 pm | |
| Boa tarde!! Uma outra forma de deletar linhas baseado em critério. - Código:
-
Sub DeletarLinhaDoisCriterios(): Dim D As String, r As Long, i As Long 'Deleta as linhas da coluna D, baseado em criterios r = Range("D" & Rows.Count).End(xlUp).Row For i = r To 1 Step -1: D = Range("D" & i) If InStr(1, D, "Criterio1") Or InStr(1, D, "Criterio2") Or InStr(1, D, "Robert") Then Range("D" & i).EntireRow.Delete Shift:=xlUp: End If: Next i End Sub Att:) | |
|