Доброе утро, подскажите пожалуйста, как сделать так, чтобы при изменении данных в умных таблицах 1 и 2 (изменение, внесение, удаление данных, добавление и удаление строк) автоматически обновлялся запрос "Запрос — Источник_к_данным" на листе BAN и в сводной таблице "Сводная таблица1", построенной на базе этого запроса.
Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.
Поместите этот код в модуль листа "Звіт" и щёлкните "Сохранить":
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Worksheets("Звіт").ListObjects("Tabl_1").Range) Is Nothing Or _
Not Intersect(Target, Worksheets("Звіт").ListObjects("Tabl_2").Range) Is Nothing Then
ActiveWorkbook.Connections("Запрос — Запрос — Источник_к_данным").Refresh
Worksheets("Звіт").PivotTables("Сводная таблица1").PivotCache.Refresh
End If
End Sub