Colorir Resumo Obtido da Dinâmica Automaticamente

Tabela Dinâmica

Post Recente por Dea Couto 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,372 Visualizações

RSS

Dea Couto

(@dea-couto)

Posts: 16

Active Member

Topic starter

Bom dia! Recebi uma solicitação, que não faço a minima ideia se é possível fazer, então vim pedir ajuda aos experientes universitários!! :oops:
Quando uma dinâmica é gerada, ao clicar em qualquer célula, o excel abre automaticamente uma planilha, demonstrando o resumo correspondente a célula clicada, ok?
Há como automatizar este resumo a ser aberto, de forma que ela tenha colunas especificas coloridas (neste caso eu determinaria a cor)?! No meu caso, cada coluna a ser especificada e colorida, corresponderia a um fluxo, e os usuários se localizariam por cores..Anexo.
Desde já agradeço atenção!

Exemplo.zip

Postado : 20/07/2015 7:11 am

Issamu

(@issamu)

Posts: 605

Honorable Member

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.

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/