Um amigo me passou esse codigo:

Sub ind()
Dim INDICADORES
INDICADORES = Range("Analise por cliente!N10")

If INDICADORES = 1 Then
Range("b8:d8").NumberFormat = "#,##0.00"

ElseIf INDICADORES = 2 Then
Range("b8:d8").NumberFormat = "$ #,##0.00"

Else
Range("b8:d8").NumberFormat = "0.00%"
End If

End Sub

Mas nao funcionou. Nao entendo nada de VBA.

Boa tarde graupp

Eu alterei a macro que teu amigo postou, para ela ser ativada conforme a seleção da célula N10, pois do jeito que estava iria depender de um botão de comando.

Para testar, selecione outra opção da célula N10.

Não se esqueça de ativar as macros quando acessar a planilha.

Dê retorno.

Um abraço.

Boa tarde Patropi

As macros estao ativas e nao teve nenhuma alteração.

Tentando contribuir:
Primeiro no gráfico selecione "Formatar rotulo de dados" depois numero e "clicar" no local "Vincular á fonte"
e utilize o codigo abaixo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$N$10" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
    If UCase(Target.Value) = UCase("qtd de pçs") Then
         Sheets("FORMULAS").Range("b8:d8").NumberFormat = "#,##0"
     Else
        Sheets("FORMULAS").Range("b8:d8").NumberFormat = "0.00"
    End If
Application.EnableEvents = True
End Sub

Boa tarde Patropi

As macros estao ativas e nao teve nenhuma alteração.

Mas você selecionou a outra opção na célula N10 -> mudando de Qtd de Pçs para % de Crescimento? Esse é o comando para a Macro!

Experimente na planilha que te enviei, pois aqui no meu PC tá funcionando.

O Reinaldo aproveitou o mesmo código e tornou-o mais prático, pois com a modificação que ele fez não precisa da célula auxiliar N1.

Att

Entao pessoal será que meu excel esta com alguma opção desativada? Pois nenhum dos codigos funcionou. Fui em central de confiabilidade e habilitei todas as macros, alterei a opçao da celula N10 e nao mudou a formatação dos numeros no grafico. Tb tentei com o codigo do Reinaldo e nao funcionou.

Onde vc está adicionando o codigo, ele tem de "ficar" no modulo que tem o nome da planilha. No modelo do colega Patropi já está no local correto, porem verifique que a celula N1 não seja apagada.
Fora isso,pelo que descreveu, não há motivo que justifique "não rodar"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$N$10" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If UCase(Target.Value) = UCase("qtd de pçs") Then
Sheets("FORMULAS").Range("b8:d8").NumberFormat = "#,##0"
Else
Sheets("FORMULAS").Range("b8:d8").NumberFormat = "0.00"
End If
Application.EnableEvents = True
End Sub

Obrigado reinaldo e Patropi! Agora consegui, só acrescentei na macro um sinal de % depois do 0 ai deu certo. Muito obrigado mesmo pessoal!