Group pivot items

[joshcas]

Hi,

I was wondering how can I group pivot items based on the name ?, e.g. I want to group all the pivot items that are not named US or CA or BR , I did a little research on the forum and I found a code that I can adapt but is not very elegant , so I'm wondering if you guys have a better suggestion.

Any help will be much appreciated

Sub test()
 Dim i As Integer
 Dim cell1 As String
 Dim cell2 As String
 Dim rng As Range

 With ActiveSheet.PivotTables("[YourPivotTableName]").PivotFields_("[YourFieldName]")
 For i = 1 To .PivotItems.Count
 If .PivotItems(i).Name Like "[YourItemName]" Then
 .PivotItems(i).LabelRange.Select
 cell1 = ActiveCell.Address
 ElseIf .PivotItems(i).Name Like "[YourItemName]" Then
 .PivotItems(i).LabelRange.Select
 cell2 = ActiveCell.Address
 Else
 End If
 Next i
 End With

 Set rng = Range(cell1, cell2)
 Selection.Group
 End Sub

 

[joshcas]

I'm having some troubles to adapt the code above , can you guys give me some light here ?, or I'm open for a different method

With ActiveSheet.PivotTables("PivotTable5").PivotFields("Ship_To_Country")

 For i = 1 To .PivotItems.Count

 If .PivotItems(i).Name = "US" Or .PivotItems(i).Name = "CA" Or .PivotItems(i).Name = "BR" Or .PivotItems(i).Name = "MX" Then
' .PivotItems(i).LabelRange.Select

' cell1 = ActiveCell.Address
'MsgBox ("Default Regions")
 Else

' Group the pivotitem

'cell2 = pt.pf2.PivotItems(i).LabelRange
'MsgBox (.PivotItems(i).Name)
'.PivotItems(i).LabelRange.Select
'cell1 = ActiveCell.Address
' cell2 = ActiveCell.Address
'Set rng = Range(cell1, cell2)
'  Selection.Group
'' Selection.Group
'MsgBox (cell1)
' reg1 = pt.pf.PivotItems(i).LabelRange
' Union(reg1, reg2).Group
 End If
 Next i

' Union(cell1, cell2).Group

 End With

 

[joshcas]

Any idea ?