SOMA COR CONDICIONAL

DLACORTE 15/04/2013 13:20:52
#421957

Fala aê pessoal, blz!?

Seguinte, sou iniciante no vba e estou com a seguinte dúvida:

Como eu faço para criar uma fórmula que some células com formatação condicional por cor?

Estou tentando utilizar esses dois códigos mas não estou conseguindo.

[txt-color=#0000f0][ô]<alteracao>
[ô]Identifica o código da cor da célula
Function gfCelColorName(ByVal vCel As Range) As String
Application.Volatile

gfCelColorName = vCel.Interior.Color
End Function
[ô]</alteracao>

[ô]<alteracao>
[ô]Soma as células de cores semelhantes
Function gfSumIfColor(ByVal vInterval As Range, ByVal vColor As String) As Double
Dim vCel As Range

Application.Volatile

For Each vCel In vInterval.Cells
If CLng(vCel.Interior.Color) = vColor Then
gfSumIfColor = gfSumIfColor + vCel.Value
End If
Next vCel
End Function
[ô]</alteracao>[/txt-color]


alguem, poderia me ajudar?

Muito Obrigado!!!!