Home Excel - Dicas Microsoft Excel VBA Excel VBA - Linhas e Colunas Excel planilha vba deletar linhas baseado em criterios

Excel planilha vba deletar linhas baseado em criterios

E-mail Imprimir PDF

Saberexcel o site de quem precisa aprender macros microsoft excel vba

E
sse macro do Aplicativo Microsoft Excel VBA, procura por determinada palavra em determinada coluna e a deleta, esses critérios são coletados a partir uma entrada de dados Inpubtox.  Espero que o exemplo possam lhes ser útil, Fique com Deus,
Expedito Marcondes.

Sub sbx_deletar_linhas_baseado_criterios()
    
    Dim vRange As Range, DeletaRange As Range, vColuna As Range
    Dim vProcuraTexto As String, vProcuraColuna As String, vColunaAtiva As String
    Dim PrimeiroEndereco As String, CheckaNulo As String
    Dim SCA

    [C1].Select ' Para selecionar a coluna(C),
    
    'Extraindo texto para coluna ativa (mas com o c1) select será direcionada para a coluna(C)    
    SCA = Split(ActiveCell.EntireColumn.Address(, False), ":")
    vColunaAtiva = SCA(0)
    
    vProcuraColuna = InputBox("Digite a coluna desejada ou cancela para sair", "Linha código para deletar", vColunaAtiva)
    
    On Error Resume Next
    Set vRange = Columns(vProcuraColuna)
    On Error GoTo 0
    
     'Se um intervalo inválido for inserido em seguida, sair
    If vRange Is Nothing Then Exit Sub
    
    vProcuraTexto = InputBox("Entre com o texto procurado", "Deleta código linha", [E1].Value) 'ActiveCell.Value)
    If vProcuraTexto = "" Then
        CheckaNulo = InputBox("Você realmente deseja excluir linhas com células vazias?" & vbNewLine & vbNewLine & _
        "Sim quero, caso contrário sairá código", "Cuidado", "Não")
        If CheckaNulo <> "Sim" Then Exit Sub
    End If
    
    Application.ScreenUpdating = False
    
     'para coincidir com a seqüência de texto TODO
    Set vColuna = vRange.Find(What:=vProcuraTexto, After:=vRange.Cells(1), LookIn:=xlValues, Lookat:=xlWhole)
     'para corresponder a uma cadeia de texto PARCIAL use esta linha
     'Set vColuna = vRange.Find(What:=vProcuraTexto, After:=vRange.Cells(1), LookIn:=xlValues, Lookat:=xlpart)
     'para coincidir com o caso e de uma cadeia de texto TODO
     'Set vColuna = vRange.Find(What:=vProcuraTexto, After:=vRange.Cells(1), LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=True)
    
    If Not vColuna Is Nothing Then
        Set DeletaRange = vColuna
        PrimeiroEndereco = vColuna.Address
        Do
          Set vColuna = vRange.FindNext(vColuna)
          Set DeletaRange = Union(DeletaRange, vColuna)
        Loop While PrimeiroEndereco <> vColuna.Address
        'nao deixe de ver nosso trabalho com 100 planilhas exemplos Loops (com todas as intruções Do/While/Loop/until/For Next/)
    End If
          
     'Se houver condição verdadeira exclua as linhas
          sbx = MsgBox("As Linhas contendo a palavra [ " & [E1] & " ] serão deletadas!!!", vbYesNo + vbCritical, "CUIDADO - AÇÃO IRREVERSÍVEL!!")
           If sbx = 6 Then
              If Not DeletaRange Is Nothing Then DeletaRange.EntireRow.Delete
           End If
      'caso queira retirar a mensagem vbyesno.
 '    If Not DeletaRange Is Nothing Then DeletaRange.EntireRow.Delete
    
    Application.ScreenUpdating = True
    
End Sub
           

Sub limpar_teste()
[a].Copy [b]
[b].Value = "LISTA"
MsgBox "dados copiados para teste com sucesso!!!", vbInformation, "Saberexcel - site das macros"
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



   Baixe o exemplo de planiha contendo os macros acima
Exel planilha vba deletar linhas baseado em criterios (88.53 KB)

Última atualização em Dom, 06 de Novembro de 2011 10:41  

Comentários  

 
# 23/11/2011 16:23
Boa tarde...

Existe uma macro para deletar colunas baseado em critérios?

Se na linha 1, existir alguma célula com a string "deleta", excluir a coluna inteira


Seria isto, não estou encontrando exemplos.

Muito obrigado

ZUCOLLI
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Depoimentos

Google Associados

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4667
mod_vvisit_counterOntem6534
mod_vvisit_counterEsta Semana11201
mod_vvisit_counterSemana passada37298
mod_vvisit_counterEsse mês170651
mod_vvisit_counterMês passado174966
mod_vvisit_counterTodos5920788
Temos: 34 guests, 6 bots online
Seu IP: 54.196.73.218
 , 
Hoje: Jul 28, 2014
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA