Somar os NOMES da Zona que estejam em celulas com a mesma cor de fundo

Question

É o seguinte tenho uma planilha e nelas as células pintadas, e dentro delas tenho NOMES de pessoas,

Exemplo: No intervalo C4:AG29, tenho as células A3 (com nome JOSÉ), A5 (com nome TIAO), A6 (com nome Alfredo) e A9 (com nome Augusto) e assim por diante pintadas gostaria de somar quantas vezes o nome por exemplo JOSÉ está em vermelho e/ou em verde e de TIAO apareceu em verde e/ou amarelo.
Desejo obter a soma dos nomes que apareceram com essas células, ou seja, que a fórmula pegue as células pintadas de vermelho e verde e me dê o valor da soma de quantas vezes essas células coloridas apareceram para esses TAL nomes. Pode me ajudar? To com um problemao para resolver e nao consigo (conforme o anexo que estou enviando) dentro dessas células D5:AH30 correto gostaria de contar quantas vezes aquele nomes (de FULANO apareceu na planilha com a célula preenchida na cor por exemplo verde/amarelo e vermelho). Fico grato.

Mas não é exatamente isso que estou querendo. Portanto não estou conseguindo adaptar para minha planilha, pois ai só soma a quantidade cor (ex. a cor vermelho apareceu tantas vezes). E o que eu estou querendo é a quantidade de vezes por exemplo que o Nome do Fulano apareceu na cor verde, e na cor vermelha e na corde amarelo e assim para outros nomes que estiverem em minha lista. Isso que não estou conseguindo fazer:

Soma só os valores da Zona que estejam em celulas com a mesma cor de fundo

Function SomaCorFundo(eu As Range, Zona As Range)
         Dim soma
         Dim celula As Range
         Dim cor As Integer
         Application.Volatile
         cor = eu.Interior.ColorIndex
         For Each celula In zona
             If celula.Interior.ColorIndex = cor Then
                soma = soma + celula.Value
             End If
         Next
         SomaCorFundo = soma
End Function

E esse outro também não deu certo.

Soma só os valores da Zona que estejam em celulas com a mesma cor de texto

Function SomaCorTexto(eu As Range, zona As Range)
         Dim soma
         Dim celula As Range
         Dim cor As Integer
         Application.Volatile
         cor = eu.Font.ColorIndex
         For Each celula In zona
             If celula.Font.ColorIndex = cor Then
                soma = soma + celula.Value
             End If
         Next
         Soma

Será que você pode me dar um help para conseguir solucionar meu problema. Fico grato.

Answer 1

Meu caro Bruno estou precisando de um HELP, será que pode me ajudar???

É o seguinte tenho uma planilha e nelas as células pintadas, e dentro delas tenho NOMES de pessoas,

Exemplo: No intervalo C4:AG29, tenho as células A3 (com nome JOSÉ), A5 (com nome TIAO), A6 (com nome Alfredo) e A9 (com nome Augusto) e assim por diante pintadas gostaria de somar quantas vezes o nome por exemplo JOSÉ está em vermelho e/ou em verde e de TIAO apareceu em verde e/ou amarelo.
Desejo obter a soma dos nomes que apareceram com essas células, ou seja, que a fórmula pegue as células pintadas de vermelho e verde e me dê o valor da soma de quantas vezes essas células coloridas apareceram para esses TAL nomes. Pode me ajudar? To com um problemao para resolver e nao consigo (conforme o anexo que estou enviando) dentro dessas células D5:AH30 correto gostaria de contar quantas vezes aquele nomes (de FULANO apareceu na planilha com a célula preenchida na cor por exemplo verde/amarelo e vermelho). Fico grato.

Mas não é exatamente isso que estou querendo. Portanto não estou conseguindo adaptar para minha planilha, pois ai só soma a quantidade cor (ex. a cor vermelho apareceu tantas vezes). E o que eu estou querendo é a quantidade de vezes por exemplo que o Nome do Fulano apareceu na cor verde, e na cor vermelha e na corde amarelo e assim para outros nomes que estiverem em minha lista. Isso que não estou conseguindo fazer:

Soma só os valores da Zona que estejam em celulas com a mesma cor de fundo

Function SomaCorFundo(eu As Range, Zona As Range)
         Dim soma
         Dim celula As Range
         Dim cor As Integer
         Application.Volatile
         cor = eu.Interior.ColorIndex
         For Each celula In zona
             If celula.Interior.ColorIndex = cor Then
                soma = soma + celula.Value
             End If
         Next
         SomaCorFundo = soma
End Function

E esse outro também não deu certo.

Soma só os valores da Zona que estejam em celulas com a mesma cor de texto

Function SomaCorTexto(eu As Range, zona As Range)
         Dim soma
         Dim celula As Range
         Dim cor As Integer
         Application.Volatile
         cor = eu.Font.ColorIndex
         For Each celula In zona
             If celula.Font.ColorIndex = cor Then
                soma = soma + celula.Value
             End If
         Next
         Soma

Será que você pode me dar um help para conseguir solucionar meu problema. Fico grato.

Answer 2

Boa noite.

Se voce postar no lugar correto ajudará voce.

http://social.msdn.microsoft.com/Forums/pt-br/vsvbasicpt/threads

Att grato.

---

Se for útil marcar como resposta Para facilitar a busca de outros. Acesse: http://jucinei.wordpress.com/

Answer 3

Qual o critério utilizado para colorir as células?

Use o critério utilizado para colorir e não para contar os coloridos.