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

  • Pergunta

  • 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

    terça-feira, 25 de agosto de 2020 14:41

Todas as Respostas