Aplicar macro un varias hojas de manera independiente en cada hoja..
Que tal, buen dia
Requiero aplicar una misma macro en varias hojas de manera independiente, es decir que seleccione la hoja 1, que se cree una hoja 1.1 y que se aplique la macro (la cual involucra a las hojas 1 y 1.1), después que busque la hoja 2, que se cree la hoja 2.2 y vuelva a aplicar la misma macro que (involucraría a las hojas 2 y 2.2) .....y asi sucesivamente pueden ser 10,12 o 30 hojas y requiero haga la copia de cada hoja y se aplique la macro, que código es el que necesito ya que no logro aplicarla en todas las hojas...
Les agradezco mucho su apoyo.
1 Respuesta
Haber si entendí. La siguiente macro toma la hoja "1" y crea una hoja llamada "1.1" y luego aplica la macro "tumacro" en la hoja "1" y en la hoja "1.1"
Cambia en mi macro el nombre "tumacro" por el nombre real de tu macro
Sub hojas()
'Por.DAM
For Each hoja In Sheets
n = n + 1
Set h = Sheets.Add(after:=Sheets(hoja.Name))
h.Name = hoja.Name & "." & n
hoja.Select
tumacro
h.Select
tumacro
Next
End Sub Saludos.Dante Amor
Si es lo que necesitas.
