Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Deletar Linahs Baseado em criterios

Ir para baixo

Deletar Linahs Baseado em criterios Empty Deletar Linahs Baseado em criterios

Mensagem por alexandrevba 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:) 
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos