Any ideas what is wrong here.. spent hours trying to solve this..
[/CODE]
the current page is highlighted as error.
Objective: combo box active x selection is made which updates the (data model based) pivot table.
I need to add in also another 2 filters from another 2 either combo boxes or just drop downs as its just year and month.
I will love you forever if anyone can help please!
thank you!
VBA Code:
Option Explicit
Sub ChangePiv()
Dim pt As PivotTable
Dim pf As PivotField
Dim str As String
Set pt = Sheet21.PivotTables("PivotTable5")
Set pf = pt.PivotFields("[LeadData].[Introducer (Actual)].[Introducer (Actual)]")
str = Sheet21.[R1].Value
pf.ClearAllFilters
pf.CurrentPage = str
End Sub
[CODE=vba]
the current page is highlighted as error.
Objective: combo box active x selection is made which updates the (data model based) pivot table.
I need to add in also another 2 filters from another 2 either combo boxes or just drop downs as its just year and month.
I will love you forever if anyone can help please!
thank you!