Добрый вечер. Помогите пожалуйста решить проблему. На Листе 1 имеется умная таблица, на Листе 2 - сводная. На листах снизу этих таблиц имеются данные, которые должны сохраниться и опускаться вниз при расширении данных таблиц. Нашел где-то решение для 2 умных таблиц, расположенных друг над другом. Вроде внедрил для Листа 2, но для этого пришлось заводить еще одну (пустую) умную таблицу. Но для Сводной (Лист 1) ничего не получается. Может быть есть другое решение?. Заранее спасибо
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Таблица1")) Is Nothing Then
a = Target.Row
b = Range("Таблица2").Row
If b - a = 3 Then
Rows(a + 1).Insert Shift:=xlDown
Rows(a * 2 + 2).Insert Shift:=xlDown
End If
End If
End Sub
|
Но для Сводной (Лист 1) ничего не получается. Может быть есть другое решение?. Заранее спасибо
