Tenho um codigo do TomazVasques que achei na net que serviu como uma luva, so que o codigo fica "pedindo pra salvar", nao posso deixar a cri...

CARA como não havia pensado nisso? não é atoa que voce é Excel Expert e eu sou só VIP, kkkkkkkk era só uma questão de pensar um pouco mesmo, agora te ...

Reinaldo, verdade, achei meu erro aqui, para uma linha olha só Sub Bolinha() Set Circulo = ActiveSheet.Shapes("Oval 1") ...

não to conseguindo

assim que tem que ficar as bolinhas, '<50% 'Circulo.Fill.ForeColor.SchemeColor = 2 Vermelho '>=50% e <70% 'Circulo.Fill&#...

porem ... nao funciona

seria mais ou menos assim o if Set Circulo = ActiveSheet.Shapes("Oval 1") If Range("F3") < 0.5 Then ...

esquece di de anexar a plan, rsrs notas.rar

Reinaldo to tentando adaptar, mais é isso mesmo, olha so a planilha oproblema é que vou ter 4 opcoes uma para cada celula correspondente, o conjunto ...

CARA 100% tava colocando na mesma planilha, valeu meus agradecimentos pela ideia brilhante, Private Sub Worksheet_Change(ByVal Target As Range) ...

interessante a proposta, porem nao funciona por esta dentro do Worksheet e nao dentro de um modulo, é atualizavel ao mudar qulquer coisa dentro da pla...