Сводный фильтр на основе ячейки - PullRequest
Новая
       46

Сводный фильтр на основе ячейки

0 голосов
/ 30 апреля 2020

Я пытаюсь отфильтровать пивот по значению в ячейке. Значение фильтра находится в именах листов, a2. Как я могу ссылаться на это правильно? Спасибо за помощь! 

    Dim SourcePivottable As PivotTable
    Dim DestinationRange As Range
    Dim aCell As Range
    Dim SelectedPerson As String


    SelectedPerson = Worksheets("Names").Range("A3")

    ActiveSheet.PivotTables("PivotTable2").PivotFields("Field"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Field")
        .PivotItems(SelectedPerson.Value).Visible = True 'This is where error occurs.
    End With
...