none
Função Autofilter RRS feed

  • Pergunta

  • Como vai pessoal,

    Estou tentando fazer um autofiltro para mostrar algumas variáveis que coloquei em um array.

    Para testar o porque o meu código não estava funcionando fiz outro código de teste. Abaixo coloco parte dele.

    Já tenho as variáveis carregadas no array mais acima do código, abaixo coloco o resultado do print para que vejam

    A variavel coluna é a coluna que faço o filtro.

    Código:

    For n = LBound(tag) To UBound(tag)              ´

            Debug.Print n & " = " & tag(n)
        Next
            
        Columns(coluna).AutoFilter field:=coluna, Criteria1:=Array( _
                    tag(0) & "*" _
                    ), Operator:=xlFilterValues
        Columns(coluna).AutoFilter field:=coluna, Criteria1:=Array( _
                    tag(0) & "*", tag(1) _
                    ), Operator:=xlFilterValues
        Columns(coluna).AutoFilter field:=coluna, Criteria1:=Array( _
                    tag(0) & "*", tag(1), tag(2) _
                    ), Operator:=xlFilterValues
        Columns(coluna).AutoFilter field:=coluna, Criteria1:=Array( _
                    tag(0) & "*", tag(1) , tag(2), tag(3)  _
                    ), Operator:=xlFilterValues
        Columns(coluna).AutoFilter field:=coluna, Criteria1:=Array( _
                    tag(0) & "*", tag(1) , tag(2), tag(3), tag(4) _
                    ), Operator:=xlFilterValues
        Columns(coluna).AutoFilter field:=coluna, Criteria1:=Array( _
                    tag(0) & "*", tag(1) , tag(2), tag(3), tag(4), tag(5) _
                    ), Operator:=xlFilterValues

    End Sub

    resultado do print:

    0 = LIT-37128
    1 = DS_DV_I_TCP_BOOL_001
    2 = DS_DV_I_TCP_BOOL_002
    3 = DS_DV_I_TCP_BOOL_003
    4 = DS_DV_I_TCP_BOOL_004
    5 = DS_DV_I_TCP_BOOL_005

    PROBLEMA:

    Rodando passo a passo com o F8 vejo que ele roda bem os dois primeiro filtros (tag(0) & "*" e tag(0) & "*", tag(1))

    Quando eu coloco o tag(2) a diante ele deixa de fazer o primeiro filtro mas faz todos os outros, ou seja:

    - tag(0) & "*"

    Resultado : LIT-37128_DI1, LIT-37128_DO2, LIT-37128_AV4

    - tag(0) & "*", tag(1)

    resultado: LIT-37128_DI1, LIT-37128_DO2, LIT-37128_AV4, DS_DV_I_TCP_BOOL_001

    - tag(0) & "*", tag(1), tag(2)

    resultado: DS_DV_I_TCP_BOOL_001, DS_DV_I_TCP_BOOL_002

    tag(0) & "*", tag(1) , tag(2), tag(3)

    resultado: DS_DV_I_TCP_BOOL_001, DS_DV_I_TCP_BOOL_002, DS_DV_I_TCP_BOOL_003

    - tag(0) & "*", tag(1) , tag(2), tag(3), tag(4)

    resultado: DS_DV_I_TCP_BOOL_001, DS_DV_I_TCP_BOOL_002, DS_DV_I_TCP_BOOL_003, DS_DV_I_TCP_BOOL_004

    - tag(0) & "*", tag(1) , tag(2), tag(3), tag(4), tag(5)

    resultado: DS_DV_I_TCP_BOOL_001, DS_DV_I_TCP_BOOL_002, DS_DV_I_TCP_BOOL_003, DS_DV_I_TCP_BOOL_004, DS_DV_I_TCP_BOOL_005

    O que pode estar acontecendo e como resolvo isso?

    Muito obrigado.

    quarta-feira, 17 de janeiro de 2018 12:20

Todas as Respostas

  • Tente o fórum "Planilhando". Lá é possível anexar arquivo e também há mais pessoas para responder.

    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    sábado, 20 de janeiro de 2018 10:18