Pivot tables and using combox box selections as a report filter

[rlodge5]

Hi, I need to use a combo box value in a report filter for a series of pivot tables.
I have a combo box with a drop down list of suppliers on the dashboard front sheet and want to be able to select one of the values and then update all the pivot tables/charts with the report filter using that value selected.

Any ideas gratefully received!
Thanks
Richard

 

[Andrew Poulsom]

Turn on the macro recorder. Select one item from the pivot table's Supplier field. Turn off the macro recorder, copy the VBA code and paste it into a reply here.

 

[rlodge5]

here it is
Sub Macro99()
'
' Macro99 Macro
'


'
ActiveSheet.PivotTables("PivotTable1").PivotFields("Supplier").CurrentPage = _
"(All)"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Supplier")
.PivotItems("BIRDS EYE LTD ").Visible = True
End With
End Sub

 

[Andrew Poulsom]

In that case I don't really see why the code in Post #17 isn't working. I do notice that there is a trailing space at the end of "BIRDS EYE LTD ". Maybe that's your problem.

 

[rlodge5]

let me try again, cheers for help