cambio de hoja

[SHAGGYNEYTOR]

buenas tardes necesito de su ayuda nueva mente esta vez y ya me cicle le comento el porque, utilizando el grabador de macros realice una macro pero al momento de utilizar el bucle for esta me pone la misma formula en todas las hojas y esto es debido a que no me cambia las hojas conforme el bucle va cambiando de hoja, la función es la siguiente

Range("L21").Select

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2],'B1 (1) '!RC[-2],'B2 (1)'!RC[-2])"

Range("L22").Select

esto es para sacar un promedio de dos hojas anteriores, pero esta formula iniciaria a correr a partir de la hoja tres, ojala y me pudieran orientar de como poder resolver esto.

de antemano muchas gracias

[SHAGGYNEYTOR]

gracias a a las personas que se tomaron su tiempo para revisar este mensaje ya quedo solucionado el problema que tenia quedo de la siguiente manera

For x = 3 To 20

y = x - 2

Z = y + 1

Sheets("B" & x & " (1)").Select

Range("L21").Select

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2],'B" & y & " (1)'!RC[-2],'B" & Z & " (1)'!RC[-2])"

Range("L22").Select

Next

si tienen alguna sugerencia es bienvenida

[Invitado Cacho R]

Otra forma, SHAGGYNEYTOR:

Dim i%
For i = 3 To Sheets.Count
  Sheets(i).[L21] = "= AVERAGE(" & _
    Sheets(i).[j21].Address(False, False, External:=True) & ", " & _
    Sheets(i - 1).[j21].Address(False, False, External:=True) & ", " & _
    Sheets(i - 2).[j21].Address(False, False, External:=True) & ")"
Next i[/PHP]

Saludos, Cacho R.

[SHAGGYNEYTOR]

ok gracias cacho tratare de entenderla y utilizarla. podemos dar por solucionado el tema