Я пытаюсь отфильтровать сводную таблицу из списка. У меня есть код VBA:
Sub DropDown2_Change()
On Error Resume Next
Sheets("TABLES").PivotTables("PivotTable1").PivotFields("Planned Maintanence").ClearAllFilters
Sheets("TABLES").PivotTables("PivotTable1").PivotFields("Planned Maintanence").CurrentPage = Sheets("TABLES").Range("E126").Value
End Sub
Но когда я использую комбинированный список, он не копирует значение в ячейку «фильтра». Он копирует значение в D126, а затем я индексирую его в E126. но тогда VBA должен подключить сводный фильтр на C126. ** редактировать заметку * поле со списком находится на другом листе. *
См. приложения 