Como selecionar a data mais recente da tabela dinâmica usando VBA no Microsoft Excel

Anonim

Se você está trabalhando em dados de vendas que continuam sendo atualizados diariamente. Para rastrear as vendas completas na última data inserida nos dados usando a tabela dinâmica. Neste artigo, aprenderemos como usar a tabela dinâmica para selecionar a data mais recente no banco de dados usando macros.

A seguir está o instantâneo dos dados que temos:

  • Para encontrar automaticamente a nova data e vendas, precisamos fazer o pivô
  • Use a tecla de atalho ALT + N + V

Precisamos seguir as etapas abaixo:

  • Clique na guia Desenvolvedor
  • No grupo Código, selecione Visual Basic

  • Insira o seguinte código no módulo de planilha


Sub LatestDatePivot ()

 Dim pfiPivFldItem como PivotItem


 Dim dtmDate As Date


 Com planilhas (“Planilha1”). Tabelas Dinâmicas (1)


 .PivotCache.Refresh


 .ClearAllFilters


 Com .RowRange


 dtmDate = Evaluate (“Max (IF (ISNUMBER (“ & .Address (0, 0) & “),” & .Address (0, 0) & “,))”)





 Terminar com


 Para cada pfiPivFldItem em .PivotFields (“Datas”). PivotItems


 Se pfiPivFldItem.Value = “(em branco)” Então


 pfiPivFldItem.Visible = False


 Outro


 pfiPivFldItem.Visible = (Cdate (pfiPivFldItem.Value) = CLng (dtmDate))


 Fim se


 Próximo pfiPivFldItem


 Terminar com


End Sub

  • Depois de copiar o código, você precisa executar a macro usando ALT + F8 e selecione a macro.
  • Ou você pode inserir uma forma e atribuir a macro; nós obteremos a última data

  • Para testar o código; se mudarmos a data existente; vamos obter a saída de acordo

Para trabalhar este código dinamicamente, tudo que você precisa fazer é seguir as etapas abaixo:

  • Pressione CTRL + F3 para abrir o Gerenciador de Nomes
  • Na caixa Refere-se a, insira a fórmula como
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Clique no botão ok
  • Agora estamos prontos para usar este intervalo nomeado na tabela dinâmica
  • Clique na tabela dinâmica
  • Na faixa de opções Analisar> Clique em Alterar fonte de dados

  • Pressione o atalho F3 para iniciar o nome da pasta existente; selecione LatestDate
  • Clique no botão ok duas vezes

  • Para testar, podemos inserir a nova data
  • Tudo o que precisamos fazer é clicar na forma retangular para executar a macro.

Desta forma, podemos selecionar a data mais recente da tabela dinâmica usando o VBA.

Download - Como selecionar a data mais recente da tabela dinâmica usando VBA