Home Excel - Dicas Microsoft Excel VBA Excel VBA - AutoFiltros Excel planilha vba autofiltro deleta dados baseados em critérios

Excel planilha vba autofiltro deleta dados baseados em critérios

E-mail Imprimir PDF

Saberexcel o site das macros

Esta macro deleta dados referente ao critério AAA na coluna A
Autofiltro.para este tipo de macro seria ideal inserir um botão
para macro na barra de ferramenta, pois ela deleta as  linhas e
com elas vão também os botões.
 
Option Explicit
 
Sub Deleta_Determinado_Codigo()
Dim vRange As Range
Dim vUltimaLinhaUsada As Long
 
Application.ScreenUpdating = False
 
With ActiveSheet
    .UsedRange
   
    vUltimaLinhaUsada = .Cells.SpecialCells(xlCellTypeLastCell).Row
    Set vRange = .Range("A1", .Cells(vUltimaLinhaUsada, "A"))
   
    vRange.AutoFilter Field:=1, Criteria1:="AAA"
   
    vRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete
   
    .Rows("1:1").Insert Shift:=xlDown
    .Range("A1:C1").Value = Array("Codigo", "Ordem", "Valor")
   
    .UsedRange
End With
 
Application.ScreenUpdating = True
 
End Sub 

macro para auxiliar no teste, copia dados para planilha original para o teste
Sub copiar_dados()
    Sheets("Plan2").Select
    Range("A1:C15").Select
    Selection.Copy
    Sheets("Plan1").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("E1").Select
End Sub
 
'...............................'
Caro Aristides,
'Montar a planilha.   (será deletado os codigos do critério AAA)
'inserir dois botões na planilha
'Plan1 para as duas macros  (uma é para copiar para seu teste.)
'Na Plan1 copiar estes dados embaixo para serem filtrados pela macro
'Na plan2 inserir estes dados ai em baixo para ser copiados.
 
'Planilha (Plan1)   e tambem na  Plan2 
Ok
'veja como montar o exemplo.

  A B C
  Codigo Ordem Valor
 1   AAA    1        3    
2  BBB  2      4
3   CCC     3        5
4   DDD     4      6
5    EEE     5      7
6    FFF     6      8
7    GGG     7      9
8    AAA     8    10
 9    BBB     9    11
10    CCC    10    12
11    DDD    11    13
12    EEE    12    14
13    FFF    13    15
14    GGG    14    16
       





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

Última atualização em Qua, 10 de Agosto de 2011 08:06  

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_counterHoje3998
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23504
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37233
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460062
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