Recorrer hojas de un libro con "ciclo for"

[cuexco]

Buenas:

Hola a todos, necesito su ayuda, quiero recorrer las hojas de un libro con un ciclo for para que haga los cambios, en celdas iguales de varias hojas la cual es restaurar formulas y para no repetir el código para hoja1, hoja2, hoja3, etc. me gustarìa que me ayuden como aplicar el ciclo for a alguna otra solución para este caso.

GRacias por su atención, saludos.

[3pies]

Este sería un ejemplo de macro, que te soluciona el problema:

Código:

Sub recorrer_libro()
'para todas las hojas del libro...
For i = 1 To Sheets.Count
  'seleccionamos la hoja que corresponda
   Sheets(i).Select
  'escribimos lo que queremos   
   Range("A1") = "¿Facilito, esto de escribir en todas las hojas, verdad?"
'continuamos con la siguiente hoja
Next
End Sub

Salu2

[cuexco]

Hola 3pies:

lo que pones sería para todas las hojas del libro, si por decir quiero que la operación empiece a partir de hoja2 sería indicar que

Sheets("Hoja2").select=i ?

o que sería lo que habría que agregar,

espero, gracias.

[cuexco]

o al revés

i =Sheets("Hoja2").select

gracias...

cual sería el caso...?

[3pies]

Si quieres que empiece en la hoja2, tan solo debes cambiar esta línea:

Código:

For i = 2 To Sheets.Count

Salu2

PD: El orden de las hojas, es el que tienen a nivel VBA, es decir, el orden que tienen desde el modo programación, no el orden de las pestañas que ves abajo en el libro, pues ese orden lo puedes alterar, cambiando cada pestaña de sitio.

[cuexco]

Muchas gracias 3pies, eso me soluciona mi duda.

saludos.