Страницы: 1
RSS
Обновление сводной при любом изменении на листе
 
Добрый день!
Коллеги, подкиньте пжл готовый макрос если есть.
(видел как то в ролике у Николая, но найти не могу)

Заранее благодарю.
 
Автообновляемая сводная таблица
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо конечно, но перед тем ка закинуть вопрос я просмотрел темы и варианты.
 
Пожалуйста. В статье есть как раз то, о чем Вы спросили. Если нет - то напишите, что именно там не подходит и как конкретно Вам надо.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Вариант с умной таблицей не подходит.

Более детально задача выглядит так:
При изменении в любой ячейке на активном листе пересчитываются все сводные таблицы в книге.

Источник данных для сводных не на активном листе.
 
Как-то странно звучит...Источник данных для сводных - не на активном листе. Изменения - на активном. А какой лист будет активным? Может надо отслеживать изменения на каком-то конкретном листе? Или на всех, независимо ни от чего и обновлять сводные при любом изменении на по сути любом листе(при условии, что этот лист будет активным)?
Это не придирки - в зависимости от конкретных условий код будет выглядеть по разному. Если прям под описанную задачу - то код такой:
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = ActiveSheet.Name Then
        Dim pt As PivotTable, ws As Worksheet
        For Each ws In Me.Worksheets
            For Each pt In ws.PivotTables
                pt.RefreshTable
            Next
        Next
    End If
End Sub

Код необходимо поместить в модуль ЭтаКнига(ThisWorkbook)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх