Macro para tabela dinamica excel

[marcelocolborges]

Bom dia, estou tentando criar via macro uma tabela dinamica, porém sempre apresenta erro na depuração. já mudei as linhas de dados, valores e tudo e ainda não consegui resolver

segue linha dos códigos:

    Range("A1:F22").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "DADOS!R1C1:R22C6", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="%!R1C1", TableName:="Tabela dinâmica1", _
        DefaultVersion:=xlPivotTableVersion12

        Sheets("%").Select
         Cells(1, 1).Select

 

Estou achando que o erro estaria no nome da tabela dinamica, que apresenta como 1 e que cada vez que executo a macro mude esse nome. 

OBS: não manjo la grande coisa de vba

[CasaDoHardware]

Não entendi, você esta criando uma macro so pra fazer uma tabela dinamica???

 

porque disso???

 

Atualizar a tabela??

 

Juro que fiquei curioso.

 

De repente a solução é mais simples do que parece e você so esta complicando.

 

Disponibilize parte do arquivo. (O Formato deve ser extamente igual, inclusive com a TD)

 

Dependendo de sua resposta e se eu estiver certo, da pra resolver com Range Dinamico.