Filter change dynamically

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.

Code:

---

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

Could you explain in a few more words what you are trying to achieve, describe the overall objective, and such.

Quote:

---

Originally Posted by xld

Could you explain in a few more words what you are trying to achieve, describe the overall objective, and such.

---

I need a pivot table to change the filters (one after another) automatically in 5 seconds 5.

Come on, that is what you said originally. What filters, change them to what, what for, etc. etc.