| Home |
| Search |
| Today's Posts |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Equating page filter value to a cell drop-down value
Hi,
I think you need to use PageFields instead of PivotFields(). The following works for me. (based on active sheet) : Sub test() Dim Wsh as worksheet Dim pt As PivotTable Dim pf As PivotField set Wsh = activesheet Set pt = wsh.PivotTables(1) Set pf = pt.PageFields(1) pf.CurrentPage = Wsh.Range("B4").Value ''' or = Wsh.Parent.Worksheets("Summary").Range("B4").Value End Sub -- Regards, Sébastien <http://www.ondemandanalysis.com |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I transfer a filter drop down box to another cell? | Excel Discussion (Misc queries) | |||
| How to define a drop down row filter in cell C2 for cells C3:C27 ? | Excel Discussion (Misc queries) | |||
| Forcing PT page filter values to equal my cell value on summary pa | Excel Programming | |||
| Theory on test equating and linking | Excel Discussion (Misc queries) | |||
| Extract filter items from Drop-Down Automatic Filter | Excel Programming | |||
Threaded Mode
