Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Grafico de Pareto R...
 
Notifications
Clear all

Grafico de Pareto Remover Dados quando for Zero

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,346 Visualizações
RSS
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Bom Dia a Todos do Fórum.
Não sei se estou postando na área correta porem meu gráfico contem macro.

Espero que possam me Ajudar.

O Problema é seguinte tenho uma Macro que gera 2 gráfico de pareto um anual e outro do período que seleciono ordenando as causas de acordo com qtde tudo certinho porém quando não tenho problema algum com determinada causa o gráfico puxa 0 o que gostaria que não fosse exibido no grafico.

Segue a Planilha de exemplo em Anexo.

Mas uma vez se alguém puder ajudar Agradeço.

Exemplo.zip
 
Postado : 25/10/2013 8:57 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!
Para retirar os rótulos de dados com valores iguais a zero faça o seguinte:

Click 2 vezes com o botão esquerdo do mouse sobre os rótulos de dados e em seguida no menu FORMATAR RÓTULOS DE DADOS, click em NÚMEROS, click em PERSONALIZADOS e na caixa CÓDIGO DE FORMATAÇÃO digite: #;; click em ADICIONAR e em FECHAR, isso deve resolver o seu problema.

Abraços,

Doni

 
Postado : 26/10/2013 8:10 am
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Obrigado Doni.

Ajudou a retirar o rotulo em cima das colunas porém para remover o rotulo da linha do gráfico

Apliquei esse codigo no final da rotina e deu certo

 For i = 5 To 19 Step 1
  If Range("C" & i).Value = 0 Then
  Range("E" & i) = "=NA()"
    End If
     If Range("K" & i).Value = 0 Then  
  Range("L" & i) = "=NA()"
    End If
  Next
    Sheets("graficos_pareto").Select

Assim os 100% que não são necessários seram removidos do gráfico

 
Postado : 28/10/2013 7:56 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 28/10/2013 10:55 am
Forum Jump:
  Tópico Anterior
Próximo Tópico