Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Deletar Linahs Baseado em criterios

Ir para baixo 
AutorMensagem
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Deletar Linahs Baseado em criterios Empty
MensagemAssunto: Deletar Linahs Baseado em criterios   Deletar Linahs Baseado em criterios EmptySex 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:)
Ir para o topo Ir para baixo
 
Deletar Linahs Baseado em criterios
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Criar_Hiperlilnk baseado no nome das guias
»  Deletar Guias VBA
» Deletar células vazias
» INSERIR, COPIAR,COLAR, DELETAR.
» Deletar TODOS dados que estão duplicados

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: