Notifications
Clear all

Macro para filtrar tabela dinâmica com a data de hoje.

4 Posts
4 Usuários
0 Reactions
1,279 Visualizações
(@kelvinrd)
Posts: 0
New Member
Topic starter
 

Olá pessoal, estou com grande dificuldade em criar essas macro.

Tenho 3 tabelas dinamica cujos filtros tem varios valores de datas desde 2016 até o dia de hoje. A ideia é filtrar todas as tabelas com a data do dia de hoje e automaticamente. Ou seja, uma macro que filtra a tabela sem eu precisar escrever a data e filtrar.

Alguem tem alguma ideia de como poderia me ajudar ? :?: :!: :?: :!:

 
Postado : 24/03/2017 10:31 am
(@brunoxro)
Posts: 0
New Member
 

Boa tarde kelvinrd,

Anexe uma planilha de exemplo, assim fica mais fácil ajudar.

att,

 
Postado : 24/03/2017 1:55 pm
(@mprudencio)
Posts: 0
New Member
 

Selecionar a data no menu é algo tao trabalhoso?

 
Postado : 25/03/2017 5:26 pm
(@dracko2007)
Posts: 0
New Member
 

olá ve se te ajuda

Sub Macro1()
Dim nDt as date
Dim nCol as integer
nDt=Hoje() 'altere para a sua data
nCol=application.Match(nDt,range("A2:BX2") 'Supondo que a linha 2 seja suas datas e va ate coluna Bx
ActiveSheet.Range("$A$6:$CP$1125").AutoFilter Field:=nCol, Criteria1:="coloque o criterio se houver", _
Operator:=xlOr

end sub

 
Postado : 26/03/2017 7:53 pm