Pivot Table using "LIKE" code
 

I have an automated pivot table that comes from our corporate group which I
manipulate each month into other reports. It has a CODE field in the "Page"
section of the pivot table that I use to see different groups of information.

I would like to programmatically (i.e. in VB code) select a group to display
that uses a wildcard. For example, I have data showing codes like NSR001,
NSR002, NSR003 .. etc. and NTR001, NTR002 .. etc. I would like to select all
the NSR groups without having to choose each one that is on this worksheet
because each month the codes might vary a bit. Some months might not have
NSR003. I would like to use something like "CODES LIKE NSR*".

Can I do that in VB for a pivot table?
--
THX cs

Pivot Table using "LIKE" code
 

Cydney,

Try a macro like the one below. Change the names as appropriate.

HTH,
Bernie
MS Excel MVP

Sub Macro1()
Dim myPI As PivotItem

With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Code")
For Each myPI In .PivotItems
myPI.Visible = True
Next myPI

For Each myPI In .PivotItems
If myPI.Name Like "NSR*" Then
myPI.Visible = True
Else
myPI.Visible = False
End If
Next myPI
End With
End Sub



"Cydney" wrote in message
...
I have an automated pivot table that comes from our corporate group which I
manipulate each month into other reports. It has a CODE field in the
"Page"
section of the pivot table that I use to see different groups of
information.

I would like to programmatically (i.e. in VB code) select a group to
display
that uses a wildcard. For example, I have data showing codes like NSR001,
NSR002, NSR003 .. etc. and NTR001, NTR002 .. etc. I would like to select
all
the NSR groups without having to choose each one that is on this worksheet
because each month the codes might vary a bit. Some months might not have
NSR003. I would like to use something like "CODES LIKE NSR*".

Can I do that in VB for a pivot table?
--
THX cs