PivotFields problem
Hi folks,
I use the following code to get the items of PivotFields("Managers"). It works ok but not exactly what I am looking for. In the PivotFields("Managers"), I hide some of the items which I dont want to show on the list. Could anyone show me the way to exclude the hidden items? Any help will be appreciated. Thanks in advance. Tim. Sub Macro1() Set nwSheet = Worksheets.Add nwSheet.Activate rw = 0 For Each pvtitem In Sheets("Sheet1").PivotTables("PivotTable1") _ .PivotFields("Managers").PivotItems rw = rw + 1 nwSheet.Cells(rw, 1).Value = pvtitem.Name Next End Sub |
PivotFields problem
Sub Macro1()
Set nwSheet = Worksheets.Add nwSheet.Activate rw = 0 For Each pvtitem In Sheets("Sheet1").PivotTables("PivotTable1") _ .PivotFields("Managers").PivotItems if pvtItem.Visible then rw = rw + 1 nwSheet.Cells(rw, 1).Value = pvtitem.Name End if Next End Sub -- Regards, Tom Ogilvy "Tim" wrote in message ... Hi folks, I use the following code to get the items of PivotFields("Managers"). It works ok but not exactly what I am looking for. In the PivotFields("Managers"), I hide some of the items which I don't want to show on the list. Could anyone show me the way to exclude the hidden items? Any help will be appreciated. Thanks in advance. Tim. Sub Macro1() Set nwSheet = Worksheets.Add nwSheet.Activate rw = 0 For Each pvtitem In Sheets("Sheet1").PivotTables("PivotTable1") _ .PivotFields("Managers").PivotItems rw = rw + 1 nwSheet.Cells(rw, 1).Value = pvtitem.Name Next End Sub |
PivotFields problem
Hi Tom,
The code only give me one manager which is not right. For example, I have nine managers. I hide 3 of them. I am expecting 6 manager on the new sheet. Could you help me? Thanks. Tim. "Tom Ogilvy" wrote: Sub Macro1() Set nwSheet = Worksheets.Add nwSheet.Activate rw = 0 For Each pvtitem In Sheets("Sheet1").PivotTables("PivotTable1") _ .PivotFields("Managers").PivotItems if pvtItem.Visible then rw = rw + 1 nwSheet.Cells(rw, 1).Value = pvtitem.Name End if Next End Sub -- Regards, Tom Ogilvy "Tim" wrote in message ... Hi folks, I use the following code to get the items of PivotFields("Managers"). It works ok but not exactly what I am looking for. In the PivotFields("Managers"), I hide some of the items which I don't want to show on the list. Could anyone show me the way to exclude the hidden items? Any help will be appreciated. Thanks in advance. Tim. Sub Macro1() Set nwSheet = Worksheets.Add nwSheet.Activate rw = 0 For Each pvtitem In Sheets("Sheet1").PivotTables("PivotTable1") _ .PivotFields("Managers").PivotItems rw = rw + 1 nwSheet.Cells(rw, 1).Value = pvtitem.Name Next End Sub |
All times are GMT +1. The time now is 02:44 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com