макросом обновить диапазон сводной

[Dorvir]

Привет всем!

Подскажите пожалуйста как макросом обновить диапазон сводной.

Диапазон все время меняется и он очень большой, хорошо бы пнуть все сводные чтобы они сами нашли себе свои CurrentRegion обновились.

Спасибо!

[VictorM]

Dorvir, посмотрите вот здесь, была похожая тема Автоматическое обновление сводной таблицы

[Dorvir]

да, это простое обновление сводной, а мне нужно чтобы при изменении исходного диапазона, сводная сама определяла новый диапазон и обновлялась...

[Dorvir]

У меня самой получилось такое написать:

Sub UpdatePivotTable()

Dim PT As PivotTable
Dim rgNewRange As Range 'новый диапазон
Dim sSheetName As String 'имя листа
Dim sRangeName As String 'имя диапазона


Set PT = ThisWorkbook.Worksheets("СВОДНАЯ"). PivotTables("PTToy")
Set rgNewRange = ThisWorkbook.Worksheets("Диапазон 1").Range("A1").CurrentRegion

sSheetName = rgNewRange.Worksheet.Name

sRangeName = "'" & sSheetName & " '!" & rgNewRange.Address

PT.PivotTableWizard SourceType:=xlDatabase, SourceData:=sRangeName

PT.Update


End Sub

[Dorvir]

PT.Update почему то не всегда срабатывает

а вот PT.PivotTable.Refresh еще не подводило...