Tengo una pregunta y un verdadero kilombo espero me puedan ayudar u apoyar, veran tengo una macro que genera varias hojas dentro de un libro lo que me gustaria hacer es que por cada hoja que exista en el libro me haga un libro nuevo, es decir si son 50 hojas dentro del libro, me genere 50 libros nuevos copiado dentro del libro la hoja que le pertenece y que el libro se guarde con el nombre de la hoja.
Estaba empezando con la macro pero la verdad me eh perdido loco!
Sub insert() For i = 2 To Sheets.Count Sheets(i).Select If ActiveSheet.Name <> "PRINCIPAL" Then Worksheets.Add
Else End If Next End Sub
[/PHP]
Use la grabadora y me salio esto en la macro:
Sheets("Hoja1").Select
Application.CutCopyMode = False
Sheets("Hoja1").Copy
Pero como automatizar este proceso para cada hoja del libro.??
No se si me explico. Saludos y gracias a todos!!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos buen dia.
Tengo una pregunta y un verdadero kilombo espero me puedan ayudar u apoyar, veran tengo una macro que genera varias hojas dentro de un libro lo que me gustaria hacer es que por cada hoja que exista en el libro me haga un libro nuevo, es decir si son 50 hojas dentro del libro, me genere 50 libros nuevos copiado dentro del libro la hoja que le pertenece y que el libro se guarde con el nombre de la hoja.
Estaba empezando con la macro pero la verdad me eh perdido loco!
Use la grabadora y me salio esto en la macro:
Sheets("Hoja1").Select
Application.CutCopyMode = False
Sheets("Hoja1").Copy
Pero como automatizar este proceso para cada hoja del libro.??
No se si me explico. Saludos y gracias a todos!!