Detalhes de vba tabela dinamica subtotal passo a passo

PropriedadeValor
Nome:vba tabela dinamica subtotal passo a passo
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



Nome do arquivo:vba tabela dinamica subtotal passo a passo.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 28/11/2010 09:28
Visitas:Todos
Responsavel:Editor
Acessos:2687 Acessos
Atualizado em: 28/11/2010 09:28
Site: