Boa tarde!!

Não se preocupe com o número de postagens que você tem ha fazer, e sim com as explicações e o tempo de cada um para te ajudar, o resto não importa

Se eu entendi bem...

Pegue seus dados e crie sua TD, depois selecione as células e faça a coloração da fonte.

Att

Alexandre,

Obrigado!

Mas ocorre que a planilha tem pra mais de 1000 linhas nessa condição, com linhas vermelhas, verde e azul.
O exemplo que eu dei foi apenas para ilustrar, no caso real, os nomes NÃO se repetem entendeu.
Hoje, eu tenho que FILTRAR PELA COR, e contar no olho, a quantidade de células com nomes coloridos, era esse trabalho que eu queria diminuir

Essas cores são aplicadas como; por formatação condicional ou manualmente (formatar fonte--cor)??

Se for manual (sómente funciona em aplicações manuais de cores) pode utilizar a função abaixo(cole-a em um modulo):

Function ContaCorFonte(qRange As Range, ByVal qRef As Range) As Double
    Dim c As Range, Xcolor&, Xvalue#    
    Xcolor = qRef.Interior.ColorIndex       
    For Each cel In qRange
        If cel.Font.ColorIndex = Xcolor Then
            Xvalue = Xvalue + cel.Count
        End If
    Next    
    ContaCorFonte = Xvalue
End Function

É utilizado como base para "contagem" uma celula colorida com o padrão desejado, supondo que as celulas com fonte coloridas estejam em A1:P40; e a celula com a cor de referencia em S17; então e a sintaxe é =ContaCorFonte($A$1:$P$40;S17)

Boa tarde!!

Use uma Função Definida pelo Usuário, para contar a fonte colorida.
Insira em um modulo

Function AleVBA_Fonte(pRange As Variant) As Integer

    Set pRange = pRange.Areas(1)

    AleVBA_Fonte = pRange.Cells(1, 1).Font.ColorIndex

End Function

, Depois faça a contagem de acordo com sua necessidade.

Att

Galera, eu estou tentando testar as 2 formas, mas quando eu coloco os códigos VBA, no módulo, e volto para o excel, ela não está lá na lista de macros para eu poder executar...
Podem me explicar o que eu estou fazendo errado?

Essas cores são aplicadas como; por formatação condicional ou manualmente (formatar fonte--cor)??

Se for manual (sómente funciona em aplicações manuais de cores) pode utilizar a função abaixo(cole-a em um modulo):

Function ContaCorFonte(qRange As Range, ByVal qRef As Range) As Double
    Dim c As Range, Xcolor&, Xvalue#    
    Xcolor = qRef.Interior.ColorIndex       
    For Each cel In qRange
        If cel.Font.ColorIndex = Xcolor Then
            Xvalue = Xvalue + cel.Count
        End If
    Next    
    ContaCorFonte = Xvalue
End Function

Galera, estou anexando outra planilha, pra ficar mais fácil de entender o que eu preciso...vlw ?
É utilizado como base para "contagem" uma celula colorida com o padrão desejado, supondo que as celulas com fonte coloridas estejam em A1:P40; e a celula com a cor de referencia em S17; então e a sintaxe é =ContaCorFonte($A$1:$P$40;S17)

Boa tarde!!

Isso é uma função!!!
Vá na célula, e digite =AleVBA_Fonte(Aqui a célula)

http://support.microsoft.com/kb/280094/pt-br

Att

Segue com a UDF aplicada (e alterada para utilizar a cor da fonte cmo parametro)

Alexandre, acho que é isso mesmo, acho que isso vai me ajudar muito.
Pelo que eu entendi, a função atribui um número a cor da fonte né?

Se não for incomodar demais, tem como me dizer, como eu faço para incluir 3 condições, na fórmula SE, para substituir o número, pelo nome que eu quiser?
A partir daí eu faço a tabela dinâmica em cima da célula com a fórmula SE.
Exemplo na planilha abaixo.

Boa tarde!!!

Tente isso...

=SE(C5=50;"VERDE";SE(C5=46;"VERMELHO";SE(C5=11;"AZUL";"")))

Faça os teste.

Att

Boa tarde Tira

Veja se é isto que vc quer:

Dê retorno.

Um abraço.

Galera é isso mesmo... !

Só tem um problema, eu estou arrastando as funções para baixo, e não está funcionando direito, prq ele não está reconhecendo quando eu mudo a cor da fonte.
Será que é pela TONALIDADE das cores ?
tipo assim, eu arrasto para baixo, coloco um nome e pinto de verde por exemplo, e ele não reconhece! mas se eu usar o pincel, fica ok!

Como eu faço pra saber, qual o tom de verde que eu tenho que usar por exemplo ?

Boa noite!!

Formate de uma única cor, depois click dentro da função (F2), como se estivesse escrevendo a célula, ai depois arraste para baixo!!!

Att

Alexandre,

Não entendi, tem como explicar melhor?
Eu vou usar uma só cor de vermelho, verde e azul, mais eu preciso saber na tabela, qual a que eu devo selecionar para a função reconhecer.