Ejecutar macro para varias hojas ????

2 envíos / 0 nuevos
Último envío
eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 2 meses 2 semanas
alta: 29/08/2017 - 17:21
Puntos: 70
Ejecutar macro para varias hojas ????

Tengo varias macros para varias hojas, como se podria hacer dentro de la misma macro para que se ejecute en varias hojas a la vez y asi no tener que hacer varios modulos y a su vez varias macros.

La parte de la macro es esta:

 Range("AC" & (y - 18)).Select ActiveCell.Value = Worksheets("hoja 1").Range("H" & (y - 18)).Value Range("AD" & (y - 18)).Select ActiveCell.Value = Worksheets("hoja 1").Range("I" & (y - 18)).Value

o sea,
lo que quiero es que en esa macro se ejecute en varias hojas a la vez, ejemplo hoa1,hoja2,hoja3,hoja4
Salud2.....
Cron
Imagen de Cron
Offline
última acción: Hace 1 hora 46 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8840
Tendrías que poner la macro

Tendrías que poner la macro en un módulo.

Luego tendrías que hacer un bucle que vaya recorriendo todas las hojas. Es más fácil hacerlo con el índice en vez de con el nombre de la hoja. Algo así como:

for a = 1 to worksheets.count

debug.print a, worksheets(a).name

next

Este código escribe el índice junto con el nombre de cada hoja del libro en la ventana Inmediato.

Adapta tu código utilizando esto. Espero que te sirva.

 

Un saludo