jmutsche
09-25-2013, 01:26 PM
Sub esis()
Dim pf As PivotField
Dim pi As PivotItem
'Application.ScreenUpdating = False
Set pf = ActiveSheet.PivotTables("PivotTable4").PivotFields("TRAN_GROUP")
With pf
For Each pi In pf.PivotItems
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 = True
Else
pi.Visible = False
End If
Next pi
End With
'Application.ScreenUpdating = True
End Sub
this is what I have and for some reason I cant get it to work. I get the error 438 object does not support this property or method.
can anyone help?
Dim pf As PivotField
Dim pi As PivotItem
'Application.ScreenUpdating = False
Set pf = ActiveSheet.PivotTables("PivotTable4").PivotFields("TRAN_GROUP")
With pf
For Each pi In pf.PivotItems
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 = True
Else
pi.Visible = False
End If
Next pi
End With
'Application.ScreenUpdating = True
End Sub
this is what I have and for some reason I cant get it to work. I get the error 438 object does not support this property or method.
can anyone help?