jme1013 Ответов: 1

Vba для решения проблемы сводной таблицы

Привет, у меня возникла проблема, когда у меня есть макрос управления 3 сводными таблицами.

Все работает нормально, за исключением тех случаев, когда данные отсутствуют в одной из таблиц.

В моем примере кода я фильтрую для "MXG". Если нет никаких данных "MXG" за данный месяц, макрос выдает ошибку времени выполнения.

Я бы хотел, чтобы макрос выбрал "(пустой)" в отсутствие "MXG".

Спасибо за любую помощь.

Sub MXG()
'
' MXG Macro
' Get MXG Data
'

'
    Sheets("My Data").Select
    ActiveSheet.PivotTables("PivotTable13").PivotFields("Work Center"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable13").PivotFields("Work Center").CurrentPage _
        = "MXG"
    ActiveSheet.PivotTables("PivotTable14").PivotFields("Org").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable14").PivotFields("Org").CurrentPage = "MXG"
    ActiveSheet.PivotTables("PivotTable15").PivotFields("Org").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable15").PivotFields("Org").CurrentPage = "MXG"
End Sub


Что я уже пробовал:

Я пробовал решение iferror, но безрезультатно

ZurdoDev

Какая строка кода выдает ошибку?

1 Ответов

Рейтинг:
2

jme1013

Приношу свои извинения за то, что отвечаю только текстом, я отвечаю со своего телефона.

У меня есть 3 похожие строки, каждая из которых относится к другой сводной таблице. Я получаю ошибку, если “MXG” отсутствует в списке. 

ActiveSheet.PivotTables("PivotTable13").PivotFields("Work Center").CurrentPage _ = "MXG"


Я пытался заставить его распознать, если “MXG” не был доступен по умолчанию для “(пусто)”, поскольку это опция, которая всегда доступна.