Função SOMASE com critérios diferente por cor da fonte

[danilozxf]

Bom pessoal estou com um problema aqui e não consigo resolver estou com uma planilha que tem alguns dados que precisam ser diferenciado pela cor da fonte como eu posso resolver isso?

Segue mais ou menos o layout:

10 SPT 100

20 SPT 200

50 SPT 500

60 SPT 700

80 SPT 800

Eu sempre usei a fórmula somase usando sempre os critérios diferentes, nesse caso o critério precisaria ser pelo tipo de cor da fonte vermelho e preto. Como eu faço pra o critério da fórmula identificar quando a fonte é vemelha ou preta?

O resultado seria esse:

80 SPT 900

140 SPT 1400

[paulosemblano]

Em VBA sim.

Sub TESTE()

Dim C As Variant

Plan1.Range("E1:F2").ClearContents

For Each C In Plan1.Range("B1:B" & Plan1.Range("B65536").End(xlUp).Row)

If C.Font.ColorIndex = 3 Then

Plan1.Range("E1").Value = _

Plan1.Range("E1").Value + Plan1.Range("A" & C.Row).Value

Plan1.Range("F1").Value = _

Plan1.Range("F1").Value + Plan1.Range("C" & C.Row).Value

Else

Plan1.Range("E2").Value = _

Plan1.Range("E2").Value + Plan1.Range("A" & C.Row).Value

Plan1.Range("F2").Value = _

Plan1.Range("F2").Value + Plan1.Range("C" & C.Row).Value

End If

Next C

End Sub