** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - recorrer todas las hojas de un libro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradorecorrer todas las hojas de un libro

 Responder Responder
Autor
Mensaje
porqueroles Ver desplegable
Habitual
Habitual


Unido: 18/Enero/2011
Estado: Sin conexión
Puntos: 53
Enlace directo a este mensaje Tema: recorrer todas las hojas de un libro
    Enviado: 10/Noviembre/2017 a las 22:18
buenas tardes. Quiero insertar en la celda "A1" de todas las hojas de un libro excel un determinado valor. Para ello, y a modo de ejemplo, utilizo el siguiente código:
Sub ejemplo()
Dim WS As Integer
Dim I As Integer
Dim n As String
WS = ActiveWorkbook.Worksheets.Count
      For I = 1 To WS
            Range("A1").Value = "hola"
      Next I
End Sub
El bucle recorre todas las hojas, pero solo escribe "hola"  en la celda A1 de la hoja activa (desde la que llamo a la macro).
Como puedo hacer para que escriba en todas las hojas ese texto.
gracias
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5771
Enlace directo a este mensaje Enviado: 10/Noviembre/2017 a las 22:28
Worksheets(I).Range("A1").Value = "hola"
Saludos desde Tenerife.

Mi sitio_web con ejemplos Excel.
Arriba
porqueroles Ver desplegable
Habitual
Habitual


Unido: 18/Enero/2011
Estado: Sin conexión
Puntos: 53
Enlace directo a este mensaje Enviado: 10/Noviembre/2017 a las 22:50
ahora SI.
Muchas gracias.
saludos

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable