| Descricao: |
 Saberexcel - o Site das Macros
Macro do Aplicativo Microsoft Excel VBA, atualiza uma tabela dinâmica, neste exemplo inseri um passo a passo com shapes(autoformas) e imagens para um melhor entendimento de tabela dinâmica, acho que poderá ajudar.
Sub Atualizar_Tabela_Dinamica()
Range("C5").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Tabela Dinamica'!R5C2:R13C4").CreatePivotTable TableDestination:="", _
TableName:="Tabela dinâmica17", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabela dinâmica17").PivotFields("Produto")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabela dinâmica17").PivotFields("Cliente")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tabela dinâmica17").PivotFields("Valor")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tabela dinâmica17").AddDataField ActiveSheet. _
PivotTables("Tabela dinâmica17").PivotFields("Valor"), "Soma de Valor", xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Range("H3").Select
End Sub
Aprenda sobre o Aplicativo Microsoft Excel VBA - Saberexcel
|