VBA vraag

[kabus]

Hallo allemaal,

Ik heb een macro gevonden die mijn draaitabellen automatisch vernieuwd als de datum tussen 2 data valt.

'Sub FilterPivotDates()
'
Dim dStart As Date
Dim dEnd As Date
Dim pt As PivotTable
Dim pf As PivotField
Dim PI As PivotItem

Application.ScreenUpdating = False
On Error Resume Next

dStart = Sheets("Trend hoofdcategorieen").Range("startdatum").Value
dEnd = Sheets("Trend hoofdcategorieen").Range("einddatum").Value

Set pt = ActiveSheet.PivotTables("Draaitabel2")
Set pf = pt.PivotFields("DATUM")

pt.ManualUpdate = True

pf.EnableMultiplePageItems = True

For Each PI In pf.PivotItems
  PI.Visible = True
Next PI

For Each PI In pf.PivotItems
  If PI.Value < dStart Or PI.Value > dEnd Then
    PI.Visible = False
  End If
Next PI

Application.ScreenUpdating = False
pt.ManualUpdate = False

Set pf = Nothing
Set pt = Nothing

End Sub'

Is het mogelijk om de code zodanig aan te passen dat hij alle draaitabbelen vernieuwt?

Greets,
kab

 

[snb]

Het lijkt me beter dat hij ze vernieuwt.

 

[kabus]

Het lijkt me beter dat hij ze vernieuwt.

Super! bedankt enzo..

Heb je ook een antwoord op mijn vraag?

 

[snb]

Zoek eens in de hulpfunktie van de VBEditor op de term refresh.

PS. gebruik geen code die je niet begrijpt.