Filter Pivot table by cell

[Brandon.Charlesworth]

Hey,

I am a little rusty with vba these days.

I am trying to filter my pivot table by linking it to a cell on a seperate worksheet. This is what I have but I keep getting an error message. I am using excel 2007.

Sub Tourname()
'
' To filter PT by tour
'
'
    wrkshtpt.PivotTables("PivotTable1").PivotFields("Tour name").ClearAllFilters
    wrkshtpt.PivotTables("PivotTable1").PivotFields("Tour name").Sheets("wrkshtcmw").Range ("B1")
End Sub

Thanks!,

Brandon

[Ken Puls]

Hey Brandon!

Sorry for the late reply here. You're on the right track, but you need to set your filter equal to something:

Sub Tourname()
'
' To filter PT by tour
'
'
wrkshtpt.PivotTables("PivotTable1").PivotFields("Tour name").ClearAllFilters
wrkshtpt.PivotTables("PivotTable1").PivotFields("Tour name").CurrentPage = Worksheets("wrkshtcmw").Range ("B1").Value
End Sub

Assuming that you're trying to set the page field, of course.

Hope things are well with you!

[Brandon.Charlesworth]

Thanks Ken!,

Things are going well. I am starting to get pretty busy.

I hope things are gong well with you!

Cheers,

[Ken Puls]

Things are great, but I know all about busy, for sure!