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
 

Leer las respuestas

#1 Toño
06/04/2010 - 23:16 | Informe spam
1.- En un módulo ordinario escribe:

Function media(fila%, col&)
Dim hasta&
Application.Volatile
hasta = 0
Do While hasta < 6
If IsNumeric(Cells(fila, col).Value) And Cells(fila, col).Value <> ""
Then
media = media + Cells(fila, col).Value
hasta = hasta + 1
End If
fila = fila - 1
Loop
media = media / 6
End Function

2.- En (p.ej.) A2 escribe: =media(COINCIDIR(9E+99;A4:A100000)+3;1)
3.- Copia/Pega A2 hasta C2

Saludos: AnSanVal

Preguntas similares