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