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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Deletar Linahs Baseado em criterios

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
alexandrevba



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

MensagemAssunto: 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:)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Deletar Linahs Baseado em criterios
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como posso fazer um jogo baseado neste
» É proibido criar jogo baseado em outro ?
» Deletar fórum
» Deletar todas as mensagens de um usuário
» Como deletar algumas contas em meu forum

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: