Home Excel - Dicas Microsoft Excel VBA Excel VBA - Linhas e Colunas Excel planilhas vba linhas deleta linhas com determinadas palavras

Excel planilhas vba linhas deleta linhas com determinadas palavras

E-mail Imprimir PDF

Saberexcel - o site das macros

Esta macro deleta valores e  linhas onde determinados valores estão inseridos  neste caso a palavra "Saber", observe que aqui também ensino como voce poderá copiar dados de uma outra planilha ou da mesma folha de planilha de forma bem simples, alias todo meu trabalho será voltado para tentar fazer um tipo de programação bem simples e de fácil entendimento. 
veja as Planilhas exemplos COMO FAZER - Programação MS Excel VBA - Saberexcel.


Option Explicit
 
Sub Deletar_com_AutoFiltro()
    Dim vDeletaValor As String
    Dim vRange As Range
    Dim vModoCalcular As Long
 
    With Application
        vModoCalcular = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
 
    'preencha o valor que voce deseja excluir
    'Variavel  vDeletaValor = "<>'Saber"  'inserir diferente<> deleta todas as palavras diferentes "Saber"
    vDeletaValor = "Saber"
 
    'Use a folha de planilha com o nome que desejar neste caso é direcionado para planilha ativa
    With ActiveSheet
 
        'primeiramente deverá remover o autofiltro
        .AutoFilterMode = False
 
        'aplicando o autofiltro e critérios para coluna(A)
        .Range("A1:A" & .Rows.Count).AutoFilter Field:=1, Criteria1:=vDeletaValor
 
        With .AutoFilter.Range
            On Error Resume Next
            Set vRange = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                                .SpecialCells(xlCellTypeVisible)
            On Error GoTo 0
            If Not vRange Is Nothing Then vRange.EntireRow.Delete
        End With

        'Removendo autofiltro novamente
        .AutoFilterMode = False
    End With
 
    With Application
        .ScreenUpdating = True
        .Calculation = vModoCalcular
    End With
    [D6].Value = "Todas as linhas com as palavras [Saber] foram deletas......"
 End Sub


Essa macro é um jeito simples de copiar alguma que ensino nas planilhas dos módulos como fazer - Programação MS Excel VBA
observe como fica bem mais simples e funciona com uma performance muito maior.

Sub copiar_teste()
Saber2
.[A1:A105].Copy Saber1.[A1]   'busca os dados pelo nome da folha de código.
[D6].Value = "Todos os dados foram copiados para o teste!"
End Sub





Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha contendo a macro acima

Última atualização em Sáb, 13 de Agosto de 2011 19:24  

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

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje171
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19677
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33406
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10456235
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