Good morning,
I'm new to the forum and also to VBA development.
Need to develop a macro to change filters (one by one) in a dynamic table according to a timer.
Developed a principle, but do not know how to continue, or carry.
Dim Alarm
Const IntervaloSegundos = '5 5 second intervals
Sub Start ()
Alarm TimeSerial = Now + (0, 0, IntervaloSegundos)
Application.OnTime EarliestTime: = Alarm, procedure: = "Macro1", Schedule: = True
End Sub
Sub Macro1 ()
Call Log
Call changeFilter ("Name", "Table1")
End Sub
Sub changeFilter (ByVal filter As String, ByVal table As String)
The PivotTable Dim pt
Set pt = Worksheets ("Sheet2"). PivotTables (table)
pt.PivotFields (filter). ClearAllFilters
pt.PivotFields (filter). CurrentPage = "Test" 'New filter set but grin. At this point I would make a loop to go through all filters.
End Sub
Help me please.
Thanks =D