Promedio de los últimos valores.

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

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

Gracias, Héctor, está perfecto.
Saludos
Francesca

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

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

... si quisiera poner las formulas en las celdas A3, B3 y C3 respectivamente
(en vez de en la fila siguiente al ultimo valor) , como serian?...