Deletar Linahs Baseado em criterios

Ir em baixo

Deletar Linahs Baseado em criterios

Mensagem por alexandrevba em Sex Out 11, 2013 12:46 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:) 
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum