Início / coding / Perguntas / 79354307
Accepted
Umut K
Asked: 2025-01-14 16:00:19 +0800 CST

Erro de atualização da tabela dinâmica na mesma planilha

  • 772

Estou usando o código simples abaixo para atualizar a tabela dinâmica automaticamente quando quaisquer dados são alterados na tabela de origem, o que funciona normalmente se a tabela dinâmica e a fonte de dados estiverem em planilhas diferentes.

Dim wb As Workbook
Dim ws As Worksheet
Dim pt As PivotTable

Set wb = ActiveWorkbook

For Each ws In wb.Sheets
  For Each pt In ws.PivotTables
    pt.PivotCache.Refresh
  Next pt
Next ws

Eu poderia ter usado simplesmente, mas quero atualizar apenas as tabelas dinâmicas.

ActiveWorkbook.RefreshAll

Estou usando-o no WorksheetChange

Private Sub Worksheet_Change(ByVal Target As Range)

mas estou recebendo um erro se a tabela dinâmica e a tabela de origem estiverem na mesma planilha.

Erro

Código de erro: -2147417848 (80010108) O método 'createpivottable' do objeto 'pivotcache' falhou

Existe uma maneira de manter a fonte e a tabela dinâmica na mesma planilha?

Obrigado,

excel

1 respostas

  1. Best Answer

    Você deve desabilitar eventos durante a atualização, já que você estará alterando a planilha a partir do evento Change - use application.enableevents = falseno início e defina-o de volta como True no final. Em outras palavras:

    Dim wb As Workbook
Dim ws As Worksheet
Dim pt As PivotTable

Set wb = ActiveWorkbook
on error resume next
application.enableevents = false
For Each ws In wb.Sheets
  For Each pt In ws.PivotTables
    pt.PivotCache.Refresh
  Next pt
Next ws
on error goto 0
Application.enableevents = true
    • 0

relate perguntas