Alterar a cor da célula

Question

Boa tarde,

queria se possível que me tentassem ajudar no seguinte:

pretendia uma fórmula que me colorisse uma célula a verde no caso de se verificarem as seguintes condições

por exemplo

A1=1    e   B1=1        a célula B1 fica com cor verde (para além da cor verde permanece com o numero 1 que foi inserido manualmente)

(já tentei fazer isto no excel na formatação condicional e não resulta.... pois só consigo inserir uma condição...)

Obrigado

Rita Cruz

Answer 1

Rita,

é possível sim via formatação condicional, se eu entendi bem você deveria fazer assim:

---

Natan

Answer 2

Muito Obrigado Natan era mesmo isto ;)

Answer 3

Natan,

vou precisar novamente da sua ajuda...

antes de me dar a explicação a cima estava a colocar as cores manualmente posteriormente eram somadas a partir de uma macro:

CountColors = 0

    ' Ciclo que irá percorrer todas as células definidas
    For Each rg In rng

      ' Caso a cor interior (background) seja a escolhida
      If rg.Interior.ColorIndex = color Then

           ' Incrementa o contador
           x = x + 1

      End If

    Next

    ' Define que a função (valor a retornar) tem o valor de x
    CountColors = x

End Function

Quando apliquei a formatação condicional para colorir as células a verde (nº da cor 50) deixou de contar... experimentei vários códigos de cor (verde) mas agora não conta...

Obrigado

Rita Cruz

Answer 4

Rita,

isso acontece porque a formatação condicional não altera a propriedade Interior.ColorIndex diretamente, mas sim a DisplayFormat.Interior.ColorIndex

nesse caso, altere seu código para:

CountColors = 0

    ' Ciclo que irá percorrer todas as células definidas
    For Each rg In rng

      ' Caso a cor interior (background) seja a escolhida
      If rg.DisplayFormat.Interior.ColorIndex = color Then

           ' Incrementa o contador
           x = x + 1

      End If

    Next

    ' Define que a função (valor a retornar) tem o valor de x
    CountColors = x

Não esqueça de Marcar Como Resposta!

---

Natan

Answer 5

Obrigado já funciona :)