Скопировать связку табличка + график.

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

Скопировать связку табличка + график. (Формулы/Formulas)

Юрий_Нд

Дата: Суббота, 22.06.2019, 16:03 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 441

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

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

Excel 2013

Ещё раз Доброго дня всем.
У меня на листе "табличка-1", а справа "график-1"
Хотелось бы, чуть ниже разместить "табличку-2", а справа "график-2".
Пробовал копировать, но получается, что "график-2" берёт данные из "табличка-1".
Что можно придумать?
Спасибо _________ Юрий.

Ответить

krosav4ig

Дата: Суббота, 22.06.2019, 17:16 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

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

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

Excel 2007,2010,2013

Доброго
[vba]

Код

Sub x()
    Dim r As Range
    With [Таблица1[#all]]
        Set r = .Offset(.Rows.Count + 1)(1, 1)
        .Copy r: r.ListObject.Name = "Таблица2"
    End With
    With [Диаграмма 1].Duplicate
        .Top = .BottomRightCell.Offset(1).Top
        .Left = .Left - 12
        .Name = "Диаграмма 2"
        .Chart.SetSourceData [Таблица2]
    End With
End Sub

[/vba]