OLAP Pivot Function

  • Thread starter Thread starter Jeff C
  • Start date Start date
J

Jeff C

I am new to working with OLAPs in Excel. I am having trouble with the
following whihc will not run no matter how I modify it. Can someone point me
in the right direction or tell me if this just won't work when querying OLAP
Pivots.

I have multiple Pivots and am trying to change the page source.

Sub newFAC()


Dim strfac As String

strfac = Range("DD2")


ActiveSheet.PivotTables("Cases").PivotFields("[Dim Facility].[Facility
Name]").CurrentPageName = "[Dim Facility].[Facility Name]." &
Range("DD2").Text


End Sub

Range("DD2") changes based on the selection in a combo box.

Thanks in advance.
 
--
Jeff C
Live Well .. Be Happy In All You Do


Jeff C said:
I am new to working with OLAPs in Excel. I am having trouble with the
following whihc will not run no matter how I modify it. Can someone point me
in the right direction or tell me if this just won't work when querying OLAP
Pivots.

I have multiple Pivots and am trying to change the page source.

Sub newFAC()


Dim strfac As String

strfac = Range("DD2")


ActiveSheet.PivotTables("Cases").PivotFields("[Dim Facility].[Facility
Name]").CurrentPageName = "[Dim Facility].[Facility Name]." &
Range("DD2").Text


End Sub

Range("DD2") changes based on the selection in a combo box.

Thanks in advance.
Click to expand...

Tried this:

ActiveSheet.PivotTables("Cases").PivotFields("[Dim Facility].[Facility
Name]").CurrentPageName = "[Dim Facility].[Facility Name].[" & strfac & "]"

I get an "unable to get PivotTables property of the worksheet class" error

can anyone help?
 
Back
Top