none
Criar varias Sheets com a mesma base e na mesma planilha RRS feed

  • Pergunta

  • 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 

    quarta-feira, 8 de novembro de 2017 16:48

Todas as Respostas

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

    Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 8 de novembro de 2017 18:22
    quarta-feira, 8 de novembro de 2017 18:22
  • 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.

    quinta-feira, 9 de novembro de 2017 14:05