Para mudar o range de uma tabela dinâmica via comando VBA basta usar o seguinte código:
ActiveSheet.PivotTables("Tabela dinâmica1").SourceData = "Plan1!R1C1:R10C2"Nesse exemplo ele está mudando o range da "Tabela dinâmica1" para célula A1:B10.
Caso queria esse arquivo, favor enviar um email para contato@exceleaccess.com solicitando.
Obrigado pela visita!
www.exceleaccess.com
contato@exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
