none
Macro Genérica para Criar Tabela Dinâmica RRS feed

  • Pergunta

  • Boa tarde amigos!

    Gravei uma macro automática onde fiz uma dinâmica. (Codigo abaixo)

    Meu objetivo é modificar os parâmetros "Plan4" e "Tabela dinâmica1" do código abaixo tornando-os genéricos e variáveis, de modo que eu possa executar esta macro N vezes e não ocorra o erro por utilizar nomeações repetidas, alguém poderia me ajudar?

        Range("A1").Select
        Sheets.Add
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
            "Plan1!R1C1:R7C4", Version:=xlPivotTableVersion14).CreatePivotTable _
            TableDestination:="Plan4!R3C1", TableName:="Tabela dinâmica1", _
            DefaultVersion:=xlPivotTableVersion14
        Sheets("Plan4").Select
        Cells(3, 1).Select


    Desde já agradeço!

    Att.

    Vinicius

    sexta-feira, 7 de julho de 2017 20:59

Respostas

  • Bom dia prezados!

    Estou passando para compartilhar com vocês a solução que encontrei. Consegui pensar em uma solução paliativa que resolveu o meu problema. Em resumo, não preciso mais descobrir o nome da próxima sheet que será criada, eu faço o excel criar uma na última posição e utilizo o nome dela para gerar a macro. Quanto ao nome da tabela dinâmica, como estou sempre gerando em uma guia nova, fica padrão como "tabela dinâmica1".

        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
            "Plan1!R1C1:R7C4", Version:=xlPivotTableVersion14).CreatePivotTable _
            TableDestination:=Sheets(Sheets.Count).Name & "!R3C1", TableName:="Tabela dinâmica1", _
            DefaultVersion:=xlPivotTableVersion14
        Sheets(Sheets(Sheets.Count).Name).Select

    Att.

    Vinicius


    terça-feira, 11 de julho de 2017 11:11