Ver Mensaje Individual
  #15 (permalink)  
Antiguo 05/02/2010, 14:03
Avatar de mrocf
mrocf
 
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes
Puntos: 88
De acuerdo Ayuda formula de excel

Hola! Andrea.
Vamos a aprovechar el oportuno comentario de Abraham para "empezar de nuevo"... Entonces:

a) Desde tu libro Excel presiona simultáneamente las dos teclas <Alt> <F8>

b) En Nombre de la macro escribe Prueba y selecciona Crear.

c) Te aparecerá una ventana con lo siguiente:
Código PHP:
Sub Prueba()

End Sub 
Esas dos líneas las reemplazarás TOTALMENTE por este otro código:

Código PHP:
Function PromedioColor(rng_sum As Rangecld As Range) As Double
Dim C 
As Rangeii 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 
d) Cierra todas las ventanas del ambiente Visual Basic en el que te encuentras y retorna al Excel.

e) Incorpora una fórmula como la siguiente:

= PromedioColor(A2:A50; A2)

en donde:
A2:A50 : es el rango en el que deseas sumar
A2 : es una celda (cualquiera) que contiene el color que deseas sumar

Para tu necesidad puntual, como "A2" selecciona una celda que no tiene relleno.

Espero te sea de utilidad.
Saludos, Cacho.