Обновление сводной таблицы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обновление сводной таблицы (Макросы/Sub)

Stork4ever

Дата: Среда, 04.02.2015, 17:00 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 82

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Создана сводная таблица, которая вынесена на отдельный лист. При изменении данных автоматического обновления таблицы не происходит. Что бы решить эту проблему попробовал записать макрос и получил следующий код:

[vba]

Код

Private Sub Worksheet_Activate()
      Range("A8").Select
      ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
      Range("E8").Select
      ActiveSheet.PivotTables("СводнаяТаблица2").PivotCache.Refresh
      Range("A1").Select
End Sub

[/vba]

В процессе выполнения макроса добавляются новые строки и получается, что таблица увеличивается в размерах. При этом я получаю такое сообщение:

Окошко Microsoft Excel
Сообщение: В [Книга1]Лист2 уже содержаться данные. Вы хотите заменить их?
Кнопки Да и Нет

Как в макросе прописать, что бы по умолчанию не выводилось это сообщение или нажималась принудительно кнопочка Да.

То есть, что бы пользователь не озадачивался данным сообщением.