Jump to content
Fórum Script Brasil
  • 0

Pivot Table (Nome)


Question

Olá, recentemente fiz uma macro para alterar dados das tabelas dinâmicas de um Excel, onde mudo o mês das tabelas dinâmicas. Deu super certo, entretanto tenho outros exceis que tem exatamente a mesma estrutura, o único problema é que o nome das tabelas dinâmicas mudam, por exemplo uma que chama "Tabela Dinâmica1", na outro Excel chama "Tabela Dinâmica2", dando dessa forma erro no meu código. Gostaria de saber se teria alguma forma de colocar uma espécie de variável no lugar do nome da tabela dinâmica, para dessa forma não haver conflitos. Até pensei em mudar os nomes das tabelas dinâmicas manualmente para ficarem iguais, porém como são muitas daria muito trabalho.

O código que uso é esse abaixo, colei apenas a parte que está com conflito

"ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields( _

        "[Data de Referência].[Ano-Mês].[Ano-Mês]").VisibleItemsList = Array( _

        "[Data de Referência].[Ano-Mês].&[2.01912E5]", _

        "[Data de Referência].[Ano-Mês].&[2.02001E5]")"

Pensei em trocar o "Tabela dinâmica2" por uma variável, porém não funcionou, acredito que não dê para Tabelas Dinâmicas, segue abaixo o teste que fiz mas não funcionou

Sub Teste()

Dim valorp As Variant

valorp = Array("Tabela dinâmica", "Tabela dinâmica0", "Tabela dinâmica1", "Tabela dinâmica2", "Tabela dinâmica3", "Tabela dinâmica4", "Tabela dinâmica5", "Tabela dinâmica6", "Tabela dinâmica7", "Tabela dinâmica8", "Tabela dinâmica9", "Tabela dinâmica10", "Tabela dinâmica11", "Tabela dinâmica12", "Tabela dinâmica13", "Tabela dinâmica14", "Tabela dinâmica15", "Tabela dinâmica16", "Tabela dinâmica17", "Tabela dinâmica18", "Tabela dinâmica19", "Tabela dinâmica20", "Tabela dinâmica21", "Tabela dinâmica22", "Tabela dinâmica23", "Tabela dinâmica24", "Tabela dinâmica25", "Tabela dinâmica26", "Tabela dinâmica27", "Tabela dinâmica28")

Dim a As Long

    For a = 0 To UBound(valorp)

    ActiveSheet.PivotTables(valorp(a)).PivotFields( _

        "[Data de Referência].[Ano-Mês].[Ano-Mês]").VisibleItemsList = Array( _

        "[Data de Referência].[Ano-Mês].&[2.02002E5]")

 

     Next a 

End Sub

 

Desde já agradeço a ajuda!

Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148734
    • Total Posts
      644600
×
×
  • Create New...