G
Geoff
Hi,
with the following code I get run-time error 1004 with the above description:
Set pt = ActiveSheet.PivotTables("Pivot_Table")
Set pf = pt.PivotFields("Pivot Class")
With pf
.Orientation = xlColumnField
.Position = 1
For Each pi In pf.PivotItems
If pi.Name = "#N/A" Or "1" Then
pi.Visible = False
Else: pi.Visible = True
End If
Next pi
End With
The error occurs at the line
pi.Visible = False
funnily enough when the test condition of the If statement has failed, i.e.
execution should have skipped this line.
Also, the Orientation property of the PivotField for some reason changes to
xlHidden, after it has been explicitly set to xlColumnField before entering
the If statement. I have a suspicion that this may be behind it, but I don't
know of a way to stop this particular property changing.
Any suggestions?
Thanks
with the following code I get run-time error 1004 with the above description:
Set pt = ActiveSheet.PivotTables("Pivot_Table")
Set pf = pt.PivotFields("Pivot Class")
With pf
.Orientation = xlColumnField
.Position = 1
For Each pi In pf.PivotItems
If pi.Name = "#N/A" Or "1" Then
pi.Visible = False
Else: pi.Visible = True
End If
Next pi
End With
The error occurs at the line
pi.Visible = False
funnily enough when the test condition of the If statement has failed, i.e.
execution should have skipped this line.
Also, the Orientation property of the PivotField for some reason changes to
xlHidden, after it has been explicitly set to xlColumnField before entering
the If statement. I have a suspicion that this may be behind it, but I don't
know of a way to stop this particular property changing.
Any suggestions?
Thanks