Este fórum está sendo desativado

[gilbertjuniors]

Pessoal, boa noite.

Estou editando reestruturando uma planilha, dentre as melhorias estou incorporando um Dashboard.

A minha dúvida é a seguinte:
Terei uma visão para cada projeto (os dados ficarão em um BD).
Tenho setores da empresa que podem ou não participar de cada projeto.
Como posso padronizar todos os gráficos do Dashboard de forma que cada setor possua uma cor padronizada, por exemplo:

[*]Sempre que a Engenharia fizer parte do projeto ela aparecerá em AZUL
[*]Sempre que o Desenvolvimento de Software fizer parte deverá aparecer em VERMELHO
[*]Sempre que a Engenharia de Materiais fizer parte deverá aparcere em AMARELO[/b]
e assim por diante.

Quando estes setores não fazem parte de um projeto, estou ocultando as células referentes aos mesmos, a fim de que não apareçam os dados nos gráficos do Dashboard porém, os outros setores não podem assumir as cores reservadas aos mesmos.

CADA SETOR DEVE POSSUIR UMA COR PADRONIZADA E DE USO EXCLUSIVO DO MESMO.

Como faço esta padronização?
Teri que usar VBA?


Grato a quem me ajudar.

[gilbertjuniors]

Pessoal é o seguinte: a Empresa na qual eu trabalho esta necessitando de um aprimoramento na planilha modelo de controle de custo de serviço,sendo gerada uma planilha para cada cliente.
Na empresa existem diversos setores (mais de 20) que podem ou não participar de cada contrato, por exemplo:
Cliente A contratou jardinagem, limpeza, copa, cozinha.
Cliente B contratou jardinagem, lavanderia, manutenção elétrica.
Cliente C contratou ao todo 12 serviços.
Cliente D contratou ao todo 5 serviços.
São mais de 50 clientes.

Montei um Dashboard.
A diretoria da empresa me pediu para que os serviços que não fazem parte daquele contrato não apareça nos gráficos.
Pediu também que as cores dos serviços sejam padronizadas em todos os relatórios (arquivos diferentes de Excel)

Nos gráficos nas configurações desabilitei o preenchimento automático de cores e selecionei preenchimento sólido, selecionei cor de cada serviço manualmente nos 6 gráficos que compões o Dashboard.

Tentei ocultar as colunas dos serviços que não fazem parte do contrato porém, alguns gráficos mudaram as cores que havia selecionado para cada serviço.

Com o uso do filtro não deu problema porém, é necessário desabilitar serviços manualmente no filtro de cada gráfico.

Pensei em mudar as propriedades de todos os gráficos (cor de cada categoria, nome de cada categoria, desabilitar ou habilitar categorias) através de VBA, desta forma a área comercial teria um userform para selecionar as categorias que fazem parte do contrato e os gráfico serão automaticamente ajustados porém, não encontrei os respectivos métodos destes gráficos.

Segue uma planilha simples (a do serviço é 100x mais complexa) que criei rapidamente em cas para exemplificar.

[DJunqueira]

Vc não anexou a planilha.
Penso q não é necessário usar VBA.
Uma alternativa p/ criação e visualização de Dashboard muito boa ultimamente é o Power BI da Microsoft (gratuito), vc já tomou conhecimento deste aplicativo?

[gilbertjuniors]

Delculpe a demora, só consegui ver hoje.

Este Power BI faz parte do Excel 2013?
A planilha que estou editando é usada por diversas pessoas lá, em diversas máquinas diferentes, se tiver que instalar este recurso para todos é bem provável que a área de TI não me atenda.

[FelipeMGarcia]

Gilberto, o Power BI é um suplemento do Excel e é gratuito além de ter muitas opções de gráficos que não vai conseguir fazer no Excel.

[gilbertjuniors]

Pessoal com auxílio postado num outro forum, adaptei o código que me deram e resultou no seguinte código:

Código: Selecionar todos

Sub PontoCor()
    Dim x As Integer
    Dim varValues As Variant
    Dim cht As ChartObject

    For Each cht In ThisWorkbook.Sheets("DashBoard").ChartObjects
            
        For Each cdlseries In cht.Chart.FullSeriesCollection
            With cdlseries 'Gráfico 1
                varValues = .XValues
                If cht.Chart.FullSeriesCollection.Count = 1 Then
                    For x = LBound(varValues) To UBound(varValues)
                        If varValues(x) = "Total" Then
                            .Points(x).Interior.Color = RGB(0, 0, 0)
                        End If
                        For i = 2 To 13 'Quantidade de serviços
                            If varValues(x) = Sheets("Índice_Cores").Range("A" & i).Value Then
                                .Points(x).Interior.Color = Sheets("Índice_Cores").Range("A" & i).Interior.Color
                            End If
                         Next i
                    Next x
                Else
                    With .Format.Fill
                        For i = 2 To 13 'Quantidade de serviços
                            If cdlseries.Name = Sheets("Índice_Cores").Range("A" & i).Value Then
                                .ForeColor.RGB = Sheets("Índice_Cores").Range("A" & i).Interior.Color
                                Exit For
                            End If
                        Next i
                    End With
                End If
            End With
        
        Next cdlseries
    Next cht
End Sub

Caso queira ver a postagem, segue o link https://www.google.com/url?q=http://www ... w7OPuQ4S3Q

Att