Este fórum está sendo desativado

[Piacentini19]

Olá.

Gostaria de saber se existe uma possibilidade de alterar a referencia de uma tabela dinâmica via vba.
Ex. A tabela dinâmica deveria ter a referencia 'Apontamento - Manual'!$D:$J, mas esta com a referencia de '\Users\User\Downloads\[Apontamento e transferencias Cacique.xlsm]Apontamento - Manual'!$D:$J.
Gostaria de fazer alguma maneira de colocar uma macro para executar e colocar esta referencia nos dados da tabela dinâmica.
Eu tenho que fazer o compartilhamento da planilha que elaborei e ela sempre muda a referencia de alguma forma não ficando efetiva.

Desde já agradeço...

[AfonsoMira]

Bom dia veja se com esta macro resolve, necessita adaptar ao seu caso.

Depois de SourceData Inserir a referência pretendida.

Código: Selecionar todos

Sub Update_PTSource()
    With ActiveSheet
        .PivotTables(1).ChangePivotCache ActiveWorkbook. _
            PivotCaches.Create(SourceType:=xlDatabase, _
            SourceData:="'" & .Name & "'!PTsource")
    End With
End Sub

Alguma dúvida só dizer.

[Piacentini19]

Boa tarde Afonso.
Obrigado pela dica, mas no meu caso não deu certo, deu erro de execução.


Sub Update_PTSource()
With ActiveSheet
.PivotTables("Tabela dinâmica4").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:="'Apontamento - Manual'!$D:$J" & .Name & "'!PTsource")
End With
End Sub

[Piacentini19]

Saberia me dizer o que é?
Desde já agradeço a disponibilidade