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

  • Pergunta

  • É 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.
    • Movido AndreAlvesLima quarta-feira, 19 de outubro de 2011 17:42 (De:Opiniões e sugestões sobre o site e programas do MSDN)
    domingo, 16 de outubro de 2011 15:03

Respostas

  • 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/
    terça-feira, 18 de outubro de 2011 20:23

Todas as Respostas

  • 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.
    • Mesclado AndreAlvesLima quarta-feira, 19 de outubro de 2011 17:43 duplicado
    domingo, 16 de outubro de 2011 15:01
  • 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/
    terça-feira, 18 de outubro de 2011 20:23
  • Qual o critério utilizado para colorir as células?

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

    segunda-feira, 24 de outubro de 2011 12:40