Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico)

Mensagem por alexandrevba em Ter Nov 04, 2014 11:08 am

Boa tarde!!
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
Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum