Вывод данных из сводной табл. в другой лист

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод данных из сводной табл. в другой лист (Формулы/Formulas)

Гри_ша

Дата: Пятница, 07.02.2020, 12:01 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2013

Добрый день! Как сделать, чтобы данные из сводной таблицы заполнялись в нужных столбцах на другом Листе?
Пример с итогом прикрепил.
Заранее Спасибо!

К сообщению приложен файл: forTest2.xlsx (14.0 Kb)

Ответить

Nic70y

Дата: Пятница, 07.02.2020, 12:17 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

ну как-то так можно:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b1")) Is Nothing Then
        u = Sheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Row
        If u > 1 Then Sheets("sheet2").Range("a2:d" & u).Clear
        v = Sheets("sheet1").Cells(Rows.Count, "a").End(xlUp).Row
        If v > 3 Then Sheets("sheet1").Range("a4:d" & v).Copy Sheets("sheet2").Range("a2")
    End If
End Sub

[/vba]