Hello my fellow nerds

[jmutsche]

You guys are awesome. I love this site. I just wanted to say thanks and hello. I also have a post I am looking for help on.


Sub esis()
Dim pf As PivotField
Dim pi As PivotItem
Application.ScreenUpdating = False
Set pf = ActiveSheet.PivotTables("PivotTable4").PivotFields("TRAN_GROUP")
With pf
If pi.TRAN_GROUP = "ESIS" _
Or pi.TRAN_GROUP = "ESISFF" _
Or pi.TRAN_GROUP = "ESISFFC" _
Or pi.TRAN_GROUP = "ESISMN" _
Or pi.TRAN_GROUP = "PMIGEN1ESIS" Then
pi.Visible = False
Else
pi.Visible = True
End If
Next pi
End With
Application.ScreenUpdating = True
End Sub

Sub esis2()
Dim pf As PivotField
Dim pi As PivotItem
Application.ScreenUpdating = False
Set pf = ActiveSheet.PivotTables("PivotTable4").PivotFields("TRAN_GROUP")
With pf
Select Case pi.Caption
Case "ESIS", "ESISFF", "ESISFFC", "ESISMN", "PMIGEN1ESIS"
pi.Visible = True
Case Else
pi.Visible = False
End Select
End With
Application.ScreenUpdating = True
End Sub

I am trying different things to be able to select multiple Items in a pivot field. I want to be able to toggle it on and off with a hotkey. can anyone help me?

[SamT]

Nobody reads these Intro Threads very often. You need to post your question in the Excel Forum/Folder.

Please read the Forum FAQs Linked to in my Signature.