VBA сводная таблица с фильтрами

 Подскажите как сделать фильтр по определенному значению в сводной таблице, например в строках "Подразделение"

Листинг программы

   
sub test()
 
    Set rngStart = Worksheets("TDSheet").Range("A1") 
    Set rngAll = rngStart.CurrentRegion
    Set pvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngAll.Address) 
    Worksheets.Add 
    Set pvtOne = ActiveSheet.PivotTables.Add(PivotCache:=pvtCache, TableDestination:=Range("a1")) 
        
        With pvtOne
            .PivotFields("Подразделение").Orientation = xlRowField 
            .PivotFields("Контрагент").Orientation = xlRowField 
            .PivotFields("Регистратор").Orientation = xlDataField   
            .PivotFields("Плата").Orientation = xlColumnField 
            .RowAxisLayout xlTabularRow
            .RepeatAllLabels xlRepeatLabels
            .PivotFields("Подразделение").Subtotals(1) = False
         End With
 
end sub

Код к задаче: «Фильтр в сводной таблице»

Листинг программы

    Dim pvtItem As PivotItem
    With pvtOne
        With .PivotFields("Подразделение")
            For Each pvtItem In .PivotItems
                        Select Case pvtItem
                            Case "Работа с клиентами", "Закупки", "Аналитический отдел"
                                pvtItem.Visible = True
                            Case Else
                                pvtItem.Visible = False
                        End Select
            Next pvtItem
        End With
    End With

Полезно ли: