Samme pivot kriterier på flere faner

Nu er det svært at vide hvad du ønsker når du skriver "... hvor der en gang for alle vælges hvilket forecast nummer osv. man ønsker at kigge på. ..."

Understeånde kode loop'er alle ark igennem. For hvert ark loop'er det alle pivottabeller igennem for at opdatere værdierne og sætte værdien af det jeg har indtastet celle A1 i Ark1 som filterværdi for kolonnen tekst2.

Det kræver at man på alle sider allerede har sat tekst2 som rapportfilter på samtlige pivottabeller.

Hvis du altid kun vil se på det nyeste forecast nummer, så vil jeg foreslå noget kode der finder højeste tal i den kolonne og så bruger det som rapportfilter.

Koden:

Sub update_and_filter_pt()

Dim ws As Worksheet
Dim pt As PivotTable
Dim val1 As String
'Dim val2 As String
'Dim val3 As String

val1 = ThisWorkbook.Worksheets("Ark1").Range("A1")
'val2 = ThisWorkbook.Worksheets("navnet på dit forside ark her").Range("navnet på den celle som man indtaster forecast nummer i - fx A1")
'val3 = ThisWorkbook.Worksheets("navnet på dit forside ark her").Range("navnet på den celle som man indtaster forecast nummer i - fx A1")

For Each ws In ThisWorkbook.Worksheets
    For Each pt In ws.PivotTables
        pt.RefreshTable
        pt.PivotFields("tekst2").CurrentPage = val1
        'pt.PivotFields("navnet på pivotfeltet/tabelkolonnen her").CurrentPage = val2
        'pt.PivotFields("navnet på pivotfeltet/tabelkolonnen her").CurrentPage = val3
    Next
Next

End Sub