none
erro 1004 vba excel no Range de Tabela Dinâmica RRS feed

  • Pergunta

  • Copiei um código na internet para alterar a fonte de dados da tabela dinâmica pelo range, ou seja, Range("A2").
        '    CurrentRegion.Address(verdade, verdade, xlR1C1, True) e depois usa o RefreshTable  para atualizar, numa planilha deu certo, ficou excelente, numa outra dá sempre erro em tempo de execução 1004: O nome do campo da tabela dinâmica não é válido. Para criar um relatório de tabela dinâmica, você deve usar dados organizados como uma listacom colunas rotuladas. Se você estiver mudando  o nome do campo de uma tabela dinâmica, deve digitar um novo nome para o campo. Enfim, já procurei ajuda na internet e não consegui nada a respeito e aí, fico sem saber como resolver este problema que parece-me simples, o que eu quero é através de um código ir a planilha onde se localiza a tabela dinâmica, alterar a fonte de dados e atualizar, tendo em vista que a base de dados está sempre aumentando, em número de linhas, posso fazer pelo excel mas, quero automatizar o procedimento. Dim ptMyPivotTable, Set ptMyPivotTable = ActiveSheet.PivotTables("Tabela dinâmica1"), ptMyPivotTable.RefreshTable, ptMyPivotTable.SourceData = Sheets("PrimeiroDia").Range("A2").CurrentRegion.Address(verdade, verdade, xlR1C1, True), ptMyPivotTable.RefreshTable, Set ptMyPivotTable = Nothing. Utilizei estes comandos para atualizar 2 tabelas dinâmicas, uma de cada de vez e nesta outra planilha não dá certo. Dá erro 1004.
    terça-feira, 5 de junho de 2018 20:09