macro excel: como utilizar una variable dentro de una formula R1C1

[crespo_cesar]

Deseo poder utilizar una formula, promedio, sobre una columna de números que tiene una altura que no es fija y que yo habré calculado antes. Esa altura para mí es una variable: numfila. EL caso es que cuando intento utilizar la formula, no sé cómo hacerlo y cuando busco en la ayuda parece que me dice que los argumentos han de estar escritos en formato R1C1 con lo que no cabe poner un argumento variable, ¿correcto? ¿Me puede ayudar alguien a resolverlo?

Range("A1").Select
Selection.End(xlDown).Select
Range("A16").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-14]C:R[-1]C)"

Este -14 es lo que me gustaría que pudiese ser una variable (numfila) porque unas veces serán 14 datos, pero otras pueden 24 o 30 o...

[Monimo]

Iniciado por crespo_cesar

Deseo poder utilizar una formula, promedio, sobre una columna de números que tiene una altura que no es fija y que yo habré calculado antes. Esa altura para mí es una variable: numfila. EL caso es que cuando intento utilizar la formula, no sé cómo hacerlo y cuando busco en la ayuda parece que me dice que los argumentos han de estar escritos en formato R1C1 con lo que no cabe poner un argumento variable, ¿correcto? ¿Me puede ayudar alguien a resolverlo?

Range("A1").Select
Selection.End(xlDown).Select
Range("A16").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-14]C:R[-1]C)"

Este -14 es lo que me gustaría que pudiese ser una variable (numfila) porque unas veces serán 14 datos, pero otras pueden 24 o 30 o...

Si se puede poner un argumento variable solo hay que concatenarlo, si ya sabes como calcular esa altura y sabes que es el formato R1C1 y sabes como sacar el -14 solo basta con poner el argumento variable asi:

Range("A1").Select
Selection.End(xlDown).Select
Range("A16").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=AVERAGE(R" & variable_altura & "]C:R[-1]C)"

[Perr0]

Código:

Sub perruno()
'Indicas la fila de la que parte
columna = 2
'en este caso el total de filas a trabajar se extrae de la celda "A1"
numfila = Range("A1").Text + columna - 1
For y = 2 To numfila
    Cells(y, columna) = "fila " & y & " de " & numfila
Next y
End Sub

[hug0magno]

Para definir un rango que aumenta o disminuye con el tiempo no necesitas macro para sacar el promedio. con las funciones del excel se soluciona.

[crespo_cesar]

Muchísimas gracias a todos. Ya está claro. Gracias por la ayuda.