none
Atualização de tabela dinâmica através do filtro de data RRS feed

  • Pergunta

  • Olá, boa tarde!

    Estou iniciando na parte de VBA e tenho a seguinte situação:

    Criei uma conexão ODBC que pega os dados do banco de dados (MySQL) da empresa a qual contratamos, até então sem problemas. Através do Power Query, consigo trazer as tabelas e fazer a procv, join ou mesclar, as tabelas que trabalho.

    Como no Office 365, consigo carregar esses dados em tabela, tabela dinâmica e outros, pensei em carregar em tabela dinâmica pelo motivo que descreverei a seguir. O arquivo será atualizado sempre que um colaborador coletar os dados na rua, o que o deixará muito grande.

    A minha ideia é que o arquivo sempre com a informação de um único dia, assim não terei problemas em ter um arquivo muito grande e a pessoa poderá filtrar as datas anteriores sempre que desejar. Então pensei em criar assim, sempre que o arquivo abrir, que ele abra com o filtro do dia anterior [=hoje()-1], e depois quem usar o arquivo possa realizar a filtragem que quiser, pois faz sentido ao meu ramo de atuação.

    Assim sendo, pensei em fazer um VBA (se tiver como pela própria tabela dinâmica ou Power Query fazer com que sempre que ele abra seja nessas condições também servirá), mas tentei fazer o seguinte código e não deu certo:

    Private Sub Workbook_Open()
    
    
    ActiveSheet.PivotTables("NOME DA DINÂMICA").PivotFields("NOME DO CAMPO").ClearAllFilters    --> PARA LIMPAR TODOS OS FILTROS
        
    
    ActiveSheet.PivotTables("NOME DA DINÂMICA").PivotFields("NOME DO CAMPO").CurrentPage = "=TODAY()-1"   --> PARA FILTRAR O DIA ANTERIOR)
    
    End Sub

    Alguém consegue me ajudar?

    terça-feira, 1 de outubro de 2019 20:26