Excel Auto filtro com VBA

[Zamboni_du]

Boa tarde,

 

Preciso de um comando onde insira o auto filtro do Excel automaticamente e elimine o numero "zero". O código abaixo eu fiz através da gravação de macro, porém ele coloca alguns critério de seleção e o que eu preciso seria apenas remover nesse caso a linha com número "zero".

Range("A1:P1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$P$5000").AutoFilter Field:=9, Criteria1:=Array("1", _
        "10", "11", "12", "13", "14", "15", "16", "17", "2", "20", "21", "216", "24", "3", "35", "4", _
        "40", "5", "6", "60.000", "7", "8", "9"), Operator:=xlFilterValues

[Patropi]

@Zamboni_du  Boa noite

 

Cadê o arquivo Excel anexado?

 

[]s

[Scofieldgyn]

veja se te atende:

 

Sub exclusãocriterio()

Dim vRange          As Range
Dim UltLin          As Long

    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData     ' Limpa todos os filtros da planilha
        
With ActiveSheet
    .UsedRange
    UltLin = .Cells.SpecialCells(xlCellTypeLastCell).Row
    Set vRange = .Range("A3", .Cells(UltLin, "A"))
    vRange.AutoFilter Field:=1, Criteria1:="=0"
    vRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData     ' Limpa todos os filtros da planilha
    End If
    .UsedRange
End With

End Sub