Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico)
Página 1 de 1 • Compartilhe •
Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico)
Boa tarde!!
Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico)
Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico)
- Código:
Sub Atualizar_Intervalo_TD_I()
Worksheets("GuiaDestino").PivotTables("TD1").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Sheets("GuiaOrigem").Range("A1").CurrentRegion)
End Sub
- Código:
Sub Atualizar_Intervalo_TD_II()
Dim pivotTable As pivotTable
Set wbTarget = ThisWorkbook
For Each pivotTable In wbTarget.Sheets("GuiaDestino").PivotTables
pivotTable.SourceData = Sheets("GuiaOrigem").Range("A1:B1000").Address(True, True, xlR1C1, True)
pivotTable.PivotCache.Refresh
pivotTable.RefreshTable
ActiveWorkbook.RefreshAll
Next
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

» Atualizar campo de tabela pelo VBA
» [Resolvido]Tabela Dinâmica Access 2013
» [Resolvido]Duvida, criar consulta igual a tabela dinâmica do access, modificando padrões
» [Resolvido]exportar formulário de tabela dinâmica para o excel
» Tabela dinâmica - porcentagem em campo com item calculado
» [Resolvido]Tabela Dinâmica Access 2013
» [Resolvido]Duvida, criar consulta igual a tabela dinâmica do access, modificando padrões
» [Resolvido]exportar formulário de tabela dinâmica para o excel
» Tabela dinâmica - porcentagem em campo com item calculado
Página 1 de 1
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum