Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Usuários do Excel

Fórum do Blog usuariosdoexcel.wordpress.com


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

Usuários do Excel :: Macros e VBA

Ir para baixo

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

Mensagem por alexandrevba 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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

Usuários do Excel :: Macros e VBA

 
Permissões neste sub-fórum
Não podes responder a tópicos