Usuário com melhor resposta
Somar os NOMES da Zona que estejam em celulas com a mesma cor de fundo

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)
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/- Sugerido como Resposta Jucinei Santos terça-feira, 18 de outubro de 2011 20:31
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 22:08
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
-
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/- Sugerido como Resposta Jucinei Santos terça-feira, 18 de outubro de 2011 20:31
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 22:08
-