Unable to get the PivotFields property of the PivotTable Class RRS feed

  • General discussion

  • Any help on this would be greatly appreciated. I'm using a combo box to update 2 different pivot tables. The index formula for the combobox is in cell G1.

    Sub Test()
     With ActiveSheet.PivotTables("PVT1").PivotFields("Vendors")
            .CurrentPage = Range("G1").Text
        End With
        With ActiveSheet.PivotTables("PVT2").PivotFields("Vendors")
            .CurrentPage = Range("G1").Text
        End With

    End Sub

    • Edited by ajmarti82 Monday, June 17, 2013 7:05 PM
    Monday, June 17, 2013 7:03 PM

All replies

  • Is the cell G1 of interest on the active sheet? Does it have a valid page value? Is Vendors the pivot field that you are using as the page field? - Your code works fine: there must be something structurally missing in your workbook.
    Thursday, June 20, 2013 4:22 PM