How to link ActiveX Control button to a Pivot Table [SOLVED]

[Raja Kamarthi]

Hi,


Please let me know how to link a Active X control button to a pivot table. I have list of names in the drop down button and a pivot table with the same list of names & data. Now all I need is when I select a particular name in the drop down, the pivot table should have the same name selected


Regards,

RK

 

[Luke M]

I'd record yourself changing the PivotTable dropdown, and then use that code within the ActiveX control, something like:

[pre]

Private Sub ComboBox1_Change()
'Replace "PivotTableChangeCode" with appropriate reference
PivotTableChangeCode = ComboBox1.Value
End Sub

[/pre]

 

[Raja Kamarthi]

Hi Luke,


Tried using your inputs but couldnt figure out, please refer to the sample file and assist me in getting the desired result


https://www.dropbox.com/s/l3arfyvxqr9vtus/MTD.xlsm


Regards,

Raja

 

[SirJB7]

Hi, R K!

This is one of those usual cases of the (useful for him!) CASFFML issue that suffers Luke M.

Try placing this code instead of in a module in the class module of the related worksheet (Sheet4):

-----

[pre]

Option Explicit

Private Sub ComboBox1_Change()
ActiveSheet.PivotTables("PivotTable1").PivotFields("name").CurrentPage = ComboBox1.Value
End Sub

[/pre]
-----

Regards!


PS: CASFFML stands for can't access shared files from my location :=)

 

[Raja Kamarthi]

SirJB7,


Thank You so much for your assistance

I was exactly looking for this


Regards,

RK

 

[SirJB7]

Hi, R K!

Glad you solved it. Credit to Luke M, I just intermediate. Thanks for your feedback and for your kind words too. And welcome back whenever needed or wanted.

Regards!