Promedio de los últimos valores.

06/04/2010 - 02:04 por Francesca Brasso | Informe spam

Hola, tengo:
De la celda A4 a la celda A116 valores numéricos.
De la celda B4 a la celda B116 valores numéricos y celdas con texto.
De la celda C4 a la celda C116 valores numéricos, celdas con texto y celdas
vacías.
Todos los días se agrega un registro, de modo que mañana la última fila será
la 117 y así sucesivamente.
En la columna A siempre serán números, en la B pueden ser números o texto y
en la C pueden ser números, texto, o quedar celdas vacías.
Necesito encontrar en cualquier momento en cada una de las columnas el
promedio de los 30 últimos valores numéricos.
¿Alguien me podrá ayudar?
Gracias y saludos
Francesca

Siga el debate

13 respuestas

Tengo una respuesta

Preguntas similare

promedio de varios números omitiendo los valores iguales a 0

Leer las respuestas

#11 Francesca Brasso

09/04/2010 - 20:40 | Informe spam

Gracias antonio, ahora sí. Claro, al hacer Copia/Pega A2 hasta C2 se
mantenía el 1 final.
Super agradecida
Saludos
Francesca.

"AnSanVal" escribió en el mensaje de noticias
news:

Hola Francesca.

Aquí tienes el código corregido y comentado:

Function media(fila%, col&) ' argumentos: fila y columna de comienzo.
Dim hasta&
Application.Volatile ' Actualiza los resultados si modificas los valores.
hasta = 0 ' tope del conteo hasta 30 (contador).
Do While hasta < 30 ' ejecuta hasta sumar 30 números.
If IsNumeric(Cells(fila, col).Value) And _
Cells(fila, col).Value <> "" Then ' si el valor es un número...
media = media + Cells(fila, col).Value ' incrementa la suma.
hasta = hasta + 1 ' incrementa el contador.
End If
fila = fila - 1 ' decrementa la fila a leer.
Loop
media = media / 30 ' promedio.
End Function

Respecto a devolver el mismo valor en B2 y C2, ... cada fórmula en cada
celda es:
[A2] =media(COINCIDIR(9E+99;A4:A100000)+3;1)
[B2] =media(COINCIDIR(9E+99;B4:B100000)+3;2)
[C2] =media(COINCIDIR(9E+99;C4:C100000)+3;3)

Disculpa el inconveniente.

Saludos: Antonio.
************************************

"Francesca Brasso" escribió en el mensaje
news:

Antonio, tampoco anduvo bien. Sin embargo aunque no entiendo tu código
cambié (por intuición) también la línea...

media = media / 6

por ...

media = media / 30

y con eso la celda [A2] devuelve la respuesta correcta, pero las [B2] y
[C2] no. Repiten lo mismo de [A2].
(Antes también repetían lo mismo de [A2])

Saludos
Francesca

Responder a este mensaje

#12 Francesca Brasso

10/04/2010 - 06:17 | Informe spam

Antonio, qué descortés, disculpa, olvidé agradecerte por la explicación de
tu código.
Ahora lo entendí perfectamente, muchas gracias.
Saludos
Francesca.

"Francesca Brasso" escribió en el mensaje de
noticias news:

Gracias antonio, ahora sí. Claro, al hacer Copia/Pega A2 hasta C2 se
mantenía el 1 final.
Super agradecida
Saludos
Francesca.

"AnSanVal" escribió en el mensaje de noticias
news:

Hola Francesca.

Aquí tienes el código corregido y comentado:

Function media(fila%, col&) ' argumentos: fila y columna de comienzo.
Dim hasta&
Application.Volatile ' Actualiza los resultados si modificas los
valores.
hasta = 0 ' tope del conteo hasta 30 (contador).
Do While hasta < 30 ' ejecuta hasta sumar 30 números.
If IsNumeric(Cells(fila, col).Value) And _
Cells(fila, col).Value <> "" Then ' si el valor es un número...
media = media + Cells(fila, col).Value ' incrementa la suma.
hasta = hasta + 1 ' incrementa el contador.
End If
fila = fila - 1 ' decrementa la fila a leer.
Loop
media = media / 30 ' promedio.
End Function

Respecto a devolver el mismo valor en B2 y C2, ... cada fórmula en cada
celda es:
[A2] =media(COINCIDIR(9E+99;A4:A100000)+3;1)
[B2] =media(COINCIDIR(9E+99;B4:B100000)+3;2)
[C2] =media(COINCIDIR(9E+99;C4:C100000)+3;3)

Disculpa el inconveniente.

Saludos: Antonio.
************************************

"Francesca Brasso" escribió en el mensaje
news:

Antonio, tampoco anduvo bien. Sin embargo aunque no entiendo tu código
cambié (por intuición) también la línea...

media = media / 6

por ...

media = media / 30

y con eso la celda [A2] devuelve la respuesta correcta, pero las [B2] y
[C2] no. Repiten lo mismo de [A2].
(Antes también repetían lo mismo de [A2])

Saludos
Francesca

Responder a este mensaje

#13 AnSanVal

10/04/2010 - 19:25 | Informe spam

Hola Francesca.

Muchas gracias a ti por tu agradecimiento. ;-))

Ya me gustaría que la mayoría de los consultantes de estos foros, dijeran al
menos: "Me ha servido la solución", AUNQUE NO DEN LAS GRACIAS, y tú ya
habias dicho que te funcionaba y además lo habias agradecido, por lo tanto
de descortes nada. Asi da gusto compartir con los demás.

Un saludo muy afectuoso: Antonio.
****************************************************
"Francesca Brasso" escribió en el mensaje
news:

Antonio, qué descortés, disculpa, olvidé agradecerte por la explicación de
tu código.
Ahora lo entendí perfectamente, muchas gracias.
Saludos
Francesca.

"Francesca Brasso" escribió en el mensaje de
noticias news:

Gracias antonio, ahora sí. Claro, al hacer Copia/Pega A2 hasta C2 se
mantenía el 1 final.
Super agradecida
Saludos
Francesca.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3

Busqueda sugerida