Somar por Cor de Fonte

Muitas vezes em nossas pastas de trabalho , possuímos células com a fonte destacando em cores alguns valores.
Quando precisamos realizar a soma destes valores o Excel não possui nativamente uma opção para isto.

Mas, seus problemas acabaram , para realizar esta tarefa faça o seguinte

Abra o Editor do Visual Basic (ALT+F11)
Em Inserir selecione módulo
No módulo criado cole o seguinte código

Function SomaCor(Rg As Range, cor As Integer)
'Desenvolvida por Bruno Leite
'bruno_silva_leite@yahoo.com.br

Dim x As Range

For Each x In Rg

 If x.Font.ColorIndex = cor And IsNumeric(x.Value) Then

  SomaCor = SomaCor + x.Value

 End If

Next x

End Function

Feito isto vá numa célula qualquer e use

=SomaCor(A1:A100;3)

O que criamos é uma UDF (função definida pelo usuário) que verifica o valor passado como parâmetro para a função e compara com a cor da fonte no intervalo.

No Exemplo serão somados todos os valores que estiverem no intervalo entre A1:A100 que possuírem a cor da fonte em Vermelho.

Caso não saiba quais são as referências de cores , sugiro uma olhadinha neste site que possui uma tabela e uma macro para identificação destes valores

http://www.automateexcel.com/2004/08/18/excel_color_reference_for_colorindex/

Bom é isto ai até uma próxima!