Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
tabela dinamica
 
Notifications
Clear all

tabela dinamica

 
2024 - VBA & Macros
Post Recente por FAGNERIBAS 6 anos atrás
7 Posts
2 Usuários
0 Reactions
1,842 Visualizações
RSS
 FAGNERIBAS
(@fagneribas)
Posts: 0
New Member
Topic starter
 

pessoal tenho um codigo q cria uma tabela dinamica muita boa ate ai tudo bem, a minha unica duvida q eu nao sei como fazer e inserir essa minha tabela dinamica apos a ultima linha preenchida na coluna "A", ja tentei atraves de codigos mais n tive sucesso sera q alguem poderia me ajudar? 

Range("C1").Select
    Selection.End(xlDown).Select
    Range("C17").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "IMPRESSÃO!R1C2:R1048576C10", Version:=6).CreatePivotTable TableDestination _
        :="IMPRESSÃO!R17C3", TableName:="Tabela dinâmica1", DefaultVersion:=6
    Sheets("IMPRESSÃO").Select
    Cells(17, 3).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("ESPÉCIE")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _
        PivotTables("Tabela dinâmica1").PivotFields("PECAS"), "Soma de PECAS", xlSum
    ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _
        PivotTables("Tabela dinâmica1").PivotFields("QTD. M ³"), "Soma de QTD. M ³", _
        xlSum
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("CLASSIFICAÇÃO")
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Soma de PECAS"). _
        Caption = "QTD. PECAS"
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Soma de QTD. M ³" _
        )
        .Caption = " QTD. M ³"
        .NumberFormat = "0.000"
    End With
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
'        .NumberFormat = "0,000;[Vermelho]Geral"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
    ActiveSheet.PivotTables("Tabela dinâmica1").CompactLayoutRowHeader = "ESPECÍE"
    Range("C26").Select
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("ESPÉCIE")
        .PivotItems("(blank)").Visible = False
    End With
    Range("C17").Select
    ActiveSheet.PivotTables("Tabela dinâmica1").TableStyle2 = "PivotStyleLight16 2"
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
        .NumberFormat = "0.000"
    End With
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
      '  .NumberFormat = "#.##0,00;[Vermelho]-#.##0,000"
    End With
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
        .NumberFormat = "0.000"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
 
Postado : 20/07/2018 1:07 pm
 xlarruda
(@xlarruda)
Posts: 0
New Member
 
Dim ul as long
ul = Range("A" & rows.count).end(xlup).row
Range("A" & ul +1 ).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"IMPRESSÃO!R1C2:R1048576C10", Version:=6).CreatePivotTable TableDestination _
:="IMPRESSÃO!R17C3", TableName:="Tabela dinâmica1", DefaultVersion:=6
Sheets("IMPRESSÃO").Select
Cells(17, 3).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("ESPÉCIE")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _
PivotTables("Tabela dinâmica1").PivotFields("PECAS"), "Soma de PECAS", xlSum
ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _
PivotTables("Tabela dinâmica1").PivotFields("QTD. M ³"), "Soma de QTD. M ³", _
xlSum
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("CLASSIFICAÇÃO")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Soma de PECAS"). _
Caption = "QTD. PECAS"
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Soma de QTD. M ³" _
)
.Caption = " QTD. M ³"
.NumberFormat = "0.000"
End With
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
' .NumberFormat = "0,000;[Vermelho]Geral"
End With
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("Tabela dinâmica1").CompactLayoutRowHeader = "ESPECÍE"
Range("C26").Select
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("ESPÉCIE")
.PivotItems("(blank)").Visible = False
End With
Range("C17").Select
ActiveSheet.PivotTables("Tabela dinâmica1").TableStyle2 = "PivotStyleLight16 2"
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
.NumberFormat = "0.000"
End With
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
' .NumberFormat = "#.##0,00;[Vermelho]-#.##0,000"
End With
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
.NumberFormat = "0.000"
End With
ActiveWorkbook.ShowPivotTableFieldList = False
 
Postado : 20/07/2018 2:02 pm
 FAGNERIBAS
(@fagneribas)
Posts: 0
New Member
Topic starter
 

xlarruda

AMIGO NAO HORA DE RODAR DA UM ERRO, NO (ROW.CONT)

 
Postado : 20/07/2018 2:10 pm
 xlarruda
(@xlarruda)
Posts: 0
New Member
 

Corrigi. Por favor, tente novamente:

Dim ul as long
ul = Range("A" & rows.count).end(xlup).row
Range("A" & ul +1 ).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"IMPRESSÃO!R1C2:R1048576C10", Version:=6).CreatePivotTable TableDestination _
:="IMPRESSÃO!R17C3", TableName:="Tabela dinâmica1", DefaultVersion:=6
Sheets("IMPRESSÃO").Select
Cells(17, 3).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("ESPÉCIE")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _
PivotTables("Tabela dinâmica1").PivotFields("PECAS"), "Soma de PECAS", xlSum
ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _
PivotTables("Tabela dinâmica1").PivotFields("QTD. M ³"), "Soma de QTD. M ³", _
xlSum
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("CLASSIFICAÇÃO")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Soma de PECAS"). _
Caption = "QTD. PECAS"
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Soma de QTD. M ³" _
)
.Caption = " QTD. M ³"
.NumberFormat = "0.000"
End With
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
' .NumberFormat = "0,000;[Vermelho]Geral"
End With
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("Tabela dinâmica1").CompactLayoutRowHeader = "ESPECÍE"
Range("C26").Select
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("ESPÉCIE")
.PivotItems("(blank)").Visible = False
End With
Range("C17").Select
ActiveSheet.PivotTables("Tabela dinâmica1").TableStyle2 = "PivotStyleLight16 2"
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
.NumberFormat = "0.000"
End With
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
' .NumberFormat = "#.##0,00;[Vermelho]-#.##0,000"
End With
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields(" QTD. M ³")
.NumberFormat = "0.000"
End With
ActiveWorkbook.ShowPivotTableFieldList = False
 
Postado : 20/07/2018 2:12 pm
 FAGNERIBAS
(@fagneribas)
Posts: 0
New Member
Topic starter
 

xlarruda

AMIGO AGORA NAO DEU ERRO, POREM A TABELA DINÂMICA ESTA SENDO INSERIDA NO MESMO LOCAL DA ANTERIOR, NAO COMO EU GOTARIA APOS A ULTIMA LINHA PREENCHIDA, VC PODERIA ME AJUDAR A SOLUCIONAR ESSE PROBLEMA?

Editado por Patropi
Para responder use o botão Responder que fica logo abaixo da janela da última resposta.
Só use citação quando realmente for necessário.
Não use todo o texto em letras maiúsculas, pois na Internet é considerado grito. Por favor não grite.

 
Postado : 20/07/2018 2:21 pm
 xlarruda
(@xlarruda)
Posts: 0
New Member
 

Tem como você postar sua planilha?

 
Postado : 20/07/2018 3:03 pm
 FAGNERIBAS
(@fagneribas)
Posts: 0
New Member
Topic starter
 

xlarruda

se puder me ajudar agradeço amigo,segue em anexo o link : https://www.dropbox.com/s/tymdt2ufttc56 ... .xlsm?dl=0

Editado por Patropi
Para responder use o botão Responder que fica logo abaixo da janela da última resposta.
Só use citação quando realmente for necessário.
Leia as regras do fórum.

 
Postado : 20/07/2018 3:23 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico