Deletar Linahs Baseado em criterios
Página 1 de 1
Deletar Linahs Baseado em criterios
Boa tarde!!
Uma outra forma de deletar linhas baseado em critério.
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
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Separar arquivo em arquivos menores de acordo com 2 critérios (duas colunas)
» Deletar Guias VBA (criando CheckBox)
» Criar_Hiperlilnk baseado no nome das guias
» Deletar TODOS dados que estão duplicados.
» Como comparar Duas colunas e deletar dados
» Deletar Guias VBA (criando CheckBox)
» Criar_Hiperlilnk baseado no nome das guias
» Deletar TODOS dados que estão duplicados.
» Como comparar Duas colunas e deletar dados
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos