Я пытаюсь создать подпункт, который бы фильтровал сводную таблицу на основе определенного значения ячейки.Сводная таблица размещается на листе «Затраты», имя таблицы также «Затраты».Целевая ячейка, на которой должен основываться фильтр, находится на листе «Панель инструментов», ячейка «D9».
Как только значение ячейки D9 изменится, изменится и фильтр затрат на лист.
Что-то не так в приведенном ниже коде, поскольку он ничего не делает, и я не знаю, где может быть проблема.Не могли бы вы мне помочь, пожалуйста?Код ниже размещен на Листе 3 (Панель инструментов).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pt As PivotTable
Set pt = Worksheets("Costs").PivotTables("Costs")
If Target.Row = 9 And Target.Column = 4 Then
pt.PivotFilters("ProjectID").CurrentPage = Worksheets("Dashboard").Range("D9").Value
End If
End Sub
Большое спасибо за все советы!