SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

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.

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