Como copiar una hoja
Hola quiero empezar agradeciendo, su ayuda me a servido de mucho, nesesito una macro que me guarde una copia de una hoja, y que el nombre lo tome del contenido de una celda, y la guarde en una carpeta , esto me servira para tener un archivo de la hoja cada vez que se modifique;
Un ejemplo en la celda A6 el contenido es juan, al guardar el documento se tendría que llamar juan
Gracias por la respuesta
Un ejemplo en la celda A6 el contenido es juan, al guardar el documento se tendría que llamar juan
Gracias por la respuesta
1 Respuesta
Respuesta de snaki Fco
1
Según lo que me dices, seria algo
Sub copia_hoja()
'Tomo el nombre del libro actual
Libro = ActiveWorkbook.Name
'Agrego un nuevo libro
Workbooks.Add
'Guardamos el nombre del Nuevo
LibroNuevo_Libro = ActiveWorkbook.Name
' Volvimos al 1er Libro
Windows(Libro).Activate
' Tomo el Valor de la celda A6
Nombre = Range("A6").Value
'Copio la información de la Hoja
Cells.Copy
'Me posiciono el el nuevo Libro
Windows(Nuevo_Libro).Activate
' Me posiono el la primera celda
Range("A1").Select
' Pego los datos copiados del otro libro
ActiveCell.PasteSpecial xlPasteAll
Application.CutCopyMode = False
' Guardo el Libro con el nombre correspondiente ActiveWorkbook.SaveAs Filename:= _ "C:\Users\francisco\Documents\ " & Nombre & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
' Cierras el libro que guardaste
ActiveWorkbook.Close SaveChanges:=True
End Sub
Sub copia_hoja()
'Tomo el nombre del libro actual
Libro = ActiveWorkbook.Name
'Agrego un nuevo libro
Workbooks.Add
'Guardamos el nombre del Nuevo
LibroNuevo_Libro = ActiveWorkbook.Name
' Volvimos al 1er Libro
Windows(Libro).Activate
' Tomo el Valor de la celda A6
Nombre = Range("A6").Value
'Copio la información de la Hoja
Cells.Copy
'Me posiciono el el nuevo Libro
Windows(Nuevo_Libro).Activate
' Me posiono el la primera celda
Range("A1").Select
' Pego los datos copiados del otro libro
ActiveCell.PasteSpecial xlPasteAll
Application.CutCopyMode = False
' Guardo el Libro con el nombre correspondiente ActiveWorkbook.SaveAs Filename:= _ "C:\Users\francisco\Documents\ " & Nombre & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
' Cierras el libro que guardaste
ActiveWorkbook.Close SaveChanges:=True
End Sub
