PivotField select all
I would like to show all items in PivotFields("PERIOD_NUMBER"). Following is
my code: Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem Set pt = Sheets("Pivot2").PivotTables("pvtWageRptCGFS") Set pf = pt.PivotFields("PERIOD_NUMBER") For Each pi In pf.PivotItems pi.Visible = True Next pi Problem: I get run time error '1004' Unable to set the Visible Property of the Pivot Item Class on "pi.Visible = True" Thanks in advance for any help! |
PivotField select all
CinqueTerra wrote:
I would like to show all items in PivotFields("PERIOD_NUMBER"). Following is my code: Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem Set pt = Sheets("Pivot2").PivotTables("pvtWageRptCGFS") Set pf = pt.PivotFields("PERIOD_NUMBER") For Each pi In pf.PivotItems pi.Visible = True Next pi Problem: I get run time error '1004' Unable to set the Visible Property of the Pivot Item Class on "pi.Visible = True" Thanks in advance for any help! One cause is having an autosort designated in Field Settings, Advanced. Autosort must be manual before the Visible property can be set. Something like pf.AutoSort xlManual, "PERIOD_NUMBER" before the for loop is entered. Tom |
PivotField select all
Awesome! Thanks :-)
" wrote: CinqueTerra wrote: I would like to show all items in PivotFields("PERIOD_NUMBER"). Following is my code: Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem Set pt = Sheets("Pivot2").PivotTables("pvtWageRptCGFS") Set pf = pt.PivotFields("PERIOD_NUMBER") For Each pi In pf.PivotItems pi.Visible = True Next pi Problem: I get run time error '1004' Unable to set the Visible Property of the Pivot Item Class on "pi.Visible = True" Thanks in advance for any help! One cause is having an autosort designated in Field Settings, Advanced. Autosort must be manual before the Visible property can be set. Something like pf.AutoSort xlManual, "PERIOD_NUMBER" before the for loop is entered. Tom |
PivotField select all
This is exactly what I needed too!!!! Thanks a million.
" wrote: CinqueTerra wrote: I would like to show all items in PivotFields("PERIOD_NUMBER"). Following is my code: Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem Set pt = Sheets("Pivot2").PivotTables("pvtWageRptCGFS") Set pf = pt.PivotFields("PERIOD_NUMBER") For Each pi In pf.PivotItems pi.Visible = True Next pi Problem: I get run time error '1004' Unable to set the Visible Property of the Pivot Item Class on "pi.Visible = True" Thanks in advance for any help! One cause is having an autosort designated in Field Settings, Advanced. Autosort must be manual before the Visible property can be set. Something like pf.AutoSort xlManual, "PERIOD_NUMBER" before the for loop is entered. Tom |
All times are GMT +1. The time now is 02:08 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com