Tabela DInâmica - MACRO

[djeisonfarias]

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:=xlDatabase, 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...

 

[JNW]

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.