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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |