Tabela DInâmica - MACRO
 

Gostaria de saber se alguém pode me ajudar na seguinte dúvida, preciso que
minha macro de tabela dinâmica se auto ajuste ao tamanho dos meus relatórios,
pois a linha final deles tem que ser uma váriavel.


Sub Nova_tabDin()
'
' Nova_tabDin Macro
' Macro gravada em 27/12/2005 por Djeison e Luciana
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"Plan1!R1C1:R12C3").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").PivotFields("CODCLIENTE"). _
Subtotals = Array(False, False, False, False, False, False, False,
False, False, False, _
False, False)
ActiveSheet.PivotTables("Tabela dinâmica2").AddFields RowFields:=Array( _
"CODCLIENTE", "Dados")
With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("PEDIDOS")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("Tabela
dinâmica2").PivotFields("VALOR").Orientation = _
xlDataField
End Sub


Thanks...
--
Djeison Girardi Farias

Tabela DInâmica - MACRO
 

Eu nao sei muito de tabelas dinamicas mas vou traduzir para que outros pode
te ajudar.

"djeisonfarias" asked:
"I would like to know if someone can help me with the following question, I
need my pivot table macro auto adjusts to the size of my reports, because the
last line has to be variable." (see code below)

Espero que isso te ajude.

"djeisonfarias" wrote:

Gostaria de saber se alguém pode me ajudar na seguinte dúvida, preciso que
minha macro de tabela dinâmica se auto ajuste ao tamanho dos meus relatórios,
pois a linha final deles tem que ser uma váriavel.


Sub Nova_tabDin()
'
' Nova_tabDin Macro
' Macro gravada em 27/12/2005 por Djeison e Luciana
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"Plan1!R1C1:R12C3").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").PivotFields("CODCLIENTE"). _
Subtotals = Array(False, False, False, False, False, False, False,
False, False, False, _
False, False)
ActiveSheet.PivotTables("Tabela dinâmica2").AddFields RowFields:=Array( _
"CODCLIENTE", "Dados")
With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("PEDIDOS")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("Tabela
dinâmica2").PivotFields("VALOR").Orientation = _
xlDataField
End Sub


Thanks...
--
Djeison Girardi Farias