Tente fazer o seguinte:
1) Acesse o VBA com ALT+F11
2) Vá no módulo da Planilha onde está a tabela dinamica (no seu exemplo é o módulo "Plan1(Exemplo)")
3) Cole o código abaixo no módulo:
Private Sub Worksheet_Deactivate()
Application.Goto Excel.Range("A1")
Call formatar
End Sub
4) Insira um novo módulo no seu projeto e cole o código abaixo:
Sub formatar()
Range(ActiveCell.ListObject.Name & "[[#All],[Nome]]").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range(ActiveCell.ListObject.Name & "[[#All],[Qtdade]]").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434879
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range(ActiveCell.ListObject.Name & "[[#All],[Vendas]]").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range(ActiveCell.ListObject.Name & "[[#All],[Matriz]]").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range(ActiveCell.ListObject.Name & "[[#All],[Estado]]").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
Range(ActiveCell.ListObject.Name & "[[#Headers],[Nome]]").Select
End Sub
5) Feche o VBA e teste com duplo clique na tabela dinamica.
6) Salve o arquivo como xlsm.
Posteriormente tento colocar um modelo, se precisar.
Postado : 21/07/2015 2:58 pm