¿Cómo guardar una hoja de un libro excel en un nuevo archivo?
Hola, lo que necesito es guardar la hoja activa de un libro excel en un libro nuevo, que contenga solo esa hoja (que no guarde el botón con el que voy a accionar la macro)en la ubicación que quiera, y que el nombre de ese libro sea el de una celda de la hoja (i1), adicionalmente quisiera si es posible que la celda(i1) se vaya numerando 0001,0002........,
es decir, al terminar de guardar la hoja 0001, que la celda cambie a 0002 para luego guardarla con ese nombre.
Gracias y Saludos
Matias
1 respuesta
Te anexo la macro
Sub copiarhoja()
'Por.DAM
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
nh = ActiveSheet.Name
folio = l1.ActiveSheet.Range("I1")
Set l2 = Workbooks.Add
l2.Sheets(1).Name = nh
For Each h In l2.Sheets
If h.Name <> nh Then h.Delete
Next
l1.Sheets(nh).Cells.Copy l2.Sheets(nh).Range("A1")
l2.SaveAs l1.Path & "\" & folio
l2.Close
l1.Sheets(nh).Range("I1") = l1.Sheets(nh).Range("I1") + 1
End SubPara que el botón no se copie a la hoja nueva, selecciona el botón con el botón derecho del mouse, selecciona la opción que dice: "Tamaño y propiedades", selecciona la pestaña "Propiedades", Marca la opción "No mover, ni cambiar tamaño con celdas".
Para que en la celda te aparezca 0001, cambia el formato de la celda, Elige la categoría "Personalizada", en el campo Tipo escribe 0000
Saludos. Dante Amor
Si es lo que necesitas.
