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

Ir em baixo

Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico) Empty 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
alexandrevba
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

Voltar ao Topo


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