Criar varias Sheets com a mesma base e na mesma planilha

Question

Bom dia! 

Eu tenho uma planilha que até o office 2010 funcionava bem que era uma beleza na empresa. Como fui obrigado a mudar para o 2016, a planilha parou de funcionar.

É o seguinte, tenho a planilha chamada MASTER, nela eu tenho uma sheetque tem o nome Master, nesta sheet tem lá;

MODELO DIA TMA MKT VERSAO VOLUME

Cada uma desta em uma coluna e abaixo vem as informações. Eu faziavarias conbimações de tabela pivot com estas infomações, mas para cada combinação era gerada uma nova sheet.

exemplo pivolt

MODELO e VOLUME 

Gerava uma sheet1 com esta informação

pivot

DIA e VOLUME 

Gerava uma Sheet2 com a infomação

Pergunta como faço para que no excel 2016 eu retome esta funcionalidade, ou seja, ter uma base que sempre gere uma nova sheet no mesmo arquivo excel?

Para gerar as pivot eu usava este codigo. Ele sempre dá erro na primeira linha       .PivotCaches.Add(xlDatabase, vb.Sheets("master").Range("Dados")).CreatePivotTable TableDestination:="", _
TableName:="Tabela dinâmica2", DefaultVersion:=xlPivotTableVersion10.

    

Sub Macro_CatxMotor()



Dim vb  As Workbook

Set vb = ThisWorkbook

With vb

.PivotCaches.Add(xlDatabase, vb.Sheets("master").Range("Dados")).CreatePivotTable TableDestination:="", _
TableName:="Tabela dinâmica2", DefaultVersion:=xlPivotTableVersion10

     ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("Tabela dinâmica2").AddFields RowFields:=Array( _
        "Motor", "cat") _
        , ColumnFields:="DIA"
    ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("vol").Orientation = _
        xlDataField
    ActiveWorkbook.ShowPivotTableFieldList = True
    ActiveWorkbook.ShowPivotTableFieldList = False
    Application.CommandBars("PivotTable").Visible = False

End With

Set vb = Nothing

End Sub

Espero que eu tenha conseguido explicar 

Answer 1

Já experimentou gravar uma macro fazendo a mesma coisa nesta nova versão?

---

Anderson Diniz [e-mail]

Answer 2

Já, mas ela só funciona uma vez, quando eu faço a segunda rodada ela não gera uma nova sheet e dá falha.

Lembro que tinha uma configuração que foi feita lá em isert - name - define.

e ainda está com a configuração, porém está dando erro de tempo de execulção 

run-time error '-2147417848 (80010108)':

Ai não sei qual é o problema,  na sexta estava tudo blz e na segunda não mais funcionou.