ayuda formula de excel

[mrocf]

Hola! Amigo: ¡Tienes razón...! Se busca el promedio y no la suma...
Entonces procede una mínima modificación:

Código PHP:

  Function PromedioColor(rng_sum As Range, cld As Range) As Double 
Dim C As Range, ii As Integer 
Application.Volatile 
For Each C In rng_sum 
  If IsNumeric(C) And C.Interior.ColorIndex = cld.Interior.ColorIndex Then 
    ii = ii + 1 
    PromedioColor = PromedioColor + C 
  End If 
Next C 
If ii > 0 Then PromedioColor = PromedioColor / ii 
End Function  
   

Y se aplica:

= PromedioColor(A2:A50; A2)

Saludos y gracias.