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
