Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Data em campo de te...
 
Notifications
Clear all

Data em campo de texto

 
2024 - VBA & Macros
Post Recente por Wagner Morel 9 anos atrás
2 Posts
2 Usuários
0 Reactions
531 Visualizações
RSS
 HenriDutra
(@henridutra)
Posts: 1
New Member
Topic starter
 

Boa tarde, Estou tentando fazer uma macro para filtrar uma tabela dinâmica com data anterior ou igual a hoje.
Gravei a macro normalmente, mas quando olhei no vbe a data ficou como texto físico e não como código vba.
Já tentei trocar por date(), mas indica data inválida.
Alguém pode me ajudar?

Sub ATUALIZAR()
'
' ATUALIZAR Macro

    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("RETIRADA PREVISTA"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("RETIRADA PREVISTA"). _
        PivotFilters.Add2 Type:=xlBeforeOrEqualTo, Value1:="23/02/2016", _
        WholeDayFilter:=True
End Sub
 
Postado : 23/02/2016 10:21 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

HenriDutra,

Boa Tarde!

Veja se assim dá certo.

Sub ATUALIZAR()
Dim Data as String
' ATUALIZAR Macro
'
Data = CStr(Date)

'
ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("RETIRADA PREVISTA"). _
ClearAllFilters
ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("RETIRADA PREVISTA"). _
PivotFilters.Add2 Type:=xlBeforeOrEqualTo, Value1:=" & Data & ", _
WholeDayFilter:=True
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 23/02/2016 10:53 am
Forum Jump:
  Tópico Anterior
Próximo Tópico