ayuda formula de excel

[Andrea71]

Ayuda con formula para sacar promedio

--------------------------------------------------------------------------------
Hola necesito ayuda con una formula, tengo una planilla con un rango de numeros, yo necesito sacar el promedio pero no de todo el rango, para explicarme mejor : tengo una columna con valores y algunas celdas con color de relleno amarillo yo necesito sacar el promedio de las celdas sin relleno.. me entienden? si utilizo el condicional si, me da error,.. como lo puedo hacer? que formula puedo utilizar?? gracias!!!

PRIMERA
83,5
80,1
76,4
85
88
83,2
84,4
82,2
81,2
81,5
82,3

[mrocf]

Andrea, por favor: comenta con que versión de Excel estás trabajando... ¿2003, 2007?

Saludos, Cacho.

[Andrea71]

Hola!! excel 2003......
graicas!

[mrocf]

Hola! Andrea.

a) Haz clic con el botón derecho de tu ratón en la solapa de la hoja donde quieres el efecto y selecciona: Ver código.

b) En la ventana que se te abrirá copia y pega el siguiente código:

Código PHP:

  Function SumaColor(rng_sum As Range, cld As Range) As Double
Dim C As Range
Application.Volatile
For Each C In rng_sum
  If IsNumeric(C) And C.Interior.ColorIndex = cld.Interior.ColorIndex Then _
    SumaColor = SumaColor + C
Next C
End Function  
   

c) Cierra todas las ventanas del ambiente Visual Basic en el que te encuentras y retorna al Excel.

d) Incorpora una fórmula como la siguiente:

= SumaColor(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.

[3pies]

Excelente, mrocf. Faltaría un contador, para dividir esta suma entre el nº de celdas con ese color de fondo. Andrea71 busca el promedio

[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.

[Andrea71]

Hola Gente!! muchas gracias, hice todo tal cual... pero cuando le doy enter a la formula me sale #¿nombre? que esta fallando???
besos y gracias!!!!!!!!!!!!

[mrocf]

La función personalizada que estás incorporando a tu libro se llama:

PromedioColor

Verifica dos cosas:
a) Que la fórmula que estés usando sea: = PromedioColor(A2:A50; A2)
b) Que el código incorporado comience con: Function PromedioColor

Saludos, Cacho.

[Andrea71]

si verifique y esta igual a lo que me decis... pero no funciona............ no se adonde estara el error.... yo copie y pegue todo tal cual.... por el error que me da no reconoce a la formula...
gracias
un beso

[mrocf]

Te sugiero que subas tu libro (que incluye al código sugerido) a un servidor público (tipo MediaFire) para así poder ver donde has cometido el error.

Saludos, Cacho.

[abrahamvj]

Hola, el codigo debe colocarse en un modulo "normal" no en el de la hoja... :)

Abraham

[Andrea71]

Hola abraham, probe en un modulo normal, es decir pegue la funcion que me pasaron.. no se si lo hice bien pero me da el mismo error.. #nombre? que mas pruebo???
Gracias!!!!!

[mrocf]

Oh!... ¡Pero que distracción la mía...!!!
Es cierto, Andrea: por error te guié a colocar la macro en la hoja en lugar de en un módulo común.
Sorry, Andrea: ¿Sabes "moverlo"?


Y muchas gracias, Abraham.

[Andrea71]

a ver... lo que hice fue lo siguiente: fui a herramientas macros, editor de visual basic, ahi pegue la funcion que me habias pasado.. intente hacer nuevamente la formula =promediocolor(rango de datos) pero nada... otra vez la palabrita nombre? ... no se si lo hice bien, si podes explicamelo.. gracias
besos

[mrocf]

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 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  
   

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.

[mrocf]

Por cierto: los anteriores intentos "vuélalos" del libro...

[Andrea71]

SIIII!!!! funciona!!!!!!!!! le damos las muchas gracias , le damos las muchas gracias, de todo corazon!!!!! ja ja ahora si!! gracias gracias son unos genios!!!!!
besos

[mrocf]

¡Solo Dios sabe donde estaban poniendo ese código...!!! (Ja ja ja)

Hasta la próxima.
Cacho.

[Andrea71]

la verdad cacho... ni idea ja ja , la primera vez en la hoja... despues en otro lugar pero en la parte de crear macros jamas ja ja ja y bueno... yo escribi por ahi que de programacion y macros ni idea... gracias por la ayuda!!! besos

[mrocf]

Mírale la parte buena: dos funciones personalizadas (suma y promedio por color)... al "precio de una" (ja ja ja).

Hasta pronto.

[JoaoM]

Ya, listo
Gracias