[Iniciante]Como fazer filtro de uma busca com critérios em VBA

Question

Olá preciso fazer montar a seguinte lógica no VBA

1 - filtrar uma tabela com duas colunas como critério coluna subnumero = 0 val = 0 2 - Na tabela filtrada vou copiar os valores identificadores em um array 3 - Fazer um filtro avançado que busca esse array na tabela 4- Fazer um filtro da tabela resultante coluna subnumero <> 0 e valor <> 0

tentei gravar uma macro, mas os valores retornados não são verdadeiros

Seria algo como:

Sub teste()

  

Planilha2.Select


ActiveSheet.Range("A:BM").AutoFilter Field:=6, Criteria1:="=0", Operator:=xlAnd
Range("BG6").Select
ActiveSheet.Range("A:BM").AutoFilter Field:=57, Criteria1:="=0", Operator:=xlAnd
Columns("E:E").Select
Selection.Copy
Sheets("Numero").Select
Range("A1").Select
ActiveSheet.Paste
ultimaCelula = Cells(Rows.Count, "A").End(xlUp).Row


Sheets("Dados Ativos").Select
Range("A:BM").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Numero Imobilizado").Range("A" & ultimaCelula), Unique:=False

Columns("A:BI").Select
Selection.Copy
Sheets("Filtro res zero").Select
Range("A1").Select
ActiveSheet.Paste

Selection.AutoFilter
ActiveSheet.Range("A:BM").AutoFilter Field:=6, Criteria1:="<>0", Operator:=xlAnd

ActiveSheet.Range("A:BM").AutoFilter Field:=57, Criteria1:="<>0", Operator:=xlAnd

Columns("E:E").EntireColumn.AutoFit
Columns("E:E").Select
Selection.Copy
Sheets("Numero").Select
Columns("B:B").Select
ActiveSheet.Paste
ActiveSheet.Range("A:BI").RemoveDuplicates Columns:=2, Header:=xlYes

ultimaCelula3 = Cells(Rows.Count, "B").End(xlUp).Row

Planilha5.Select

Range("N13").Value = ultimaCelula3 - 1

End sub

Answer 1

https://www.youtube.com/results?search_query=excel+vba+filtro

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]