Results 1 to 3 of 3
  1. #1
    Join Date
    Apr 2005
    Posts
    39

    Unanswered: VBA to unhide all pivot itmes

    Hi. Does anny one know what it wrong wit this code. It bugs at the visible = true line...

    Thanks Felix

    ================================================== ===
    Sub Pivotgroupall()
    On Error GoTo err_handler
    ' Unhide all items
    Sheets(Dataworksheet).Select
    Dim NameofItem As String

    Pivotname = "Pivottable1"
    Fieldname = "CATEGORY"

    With ActiveSheet.PivotTables(Pivotname).PivotFields(Fie ldname)

    For x = 1 To .PivotItems.Count
    NameofItem = .PivotItems(x).Name
    If .PivotItems.Item(NameofItem).Visible = False Then
    .PivotItems(NameofItem).Visible = True
    End If
    Next
    End With
    Sheets("REPORT").Select

    err_handler:
    Application.ScreenUpdating = True
    MsgBox Error_text & Err.Number & Err.Description, vbCritical
    End Sub
    ================================================== ===

  2. #2
    Join Date
    Apr 2005
    Posts
    39
    for who is intrested, I found the solution browsing on internet:

    http://www.mrexcel.com/board2/viewto...ight=pivotitem

    seems like you need to sort the pivotitems before you can thouch the pivotitem class....

  3. #3
    Join Date
    Oct 2003
    Posts
    1,091
    I commend you for this. You continued searching on your own. You also came back here and provided a link to the solution, then gave the critical factor in solving the issue.

    Well done!!!
    old, slow, and confused
    but at least I'm inconsistent!

    Rich
    (retired Excel 2003 user, 3/28/2008)

    How to ask a question on forums

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •