Copiar hoja de un libro a otro
Para DANTE
Hola
Quisiera saber como puedo copiar una hoja de un libro a otro con una macro
Tengo este código para imprimir y quisiera que desde el pueda también copiar la hoja "datosm1" a otro libro y la hoja se guarde con el mismo nombre "datosm1" y el libro se guarde con el dato que se encuentra en la celda b2
Private Sub CommandButton2_Click()
Sheets("datosm1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Te anexo la macro con los cambios
Private Sub CommandButton2_Click()
'Act.Por.Dante Amor
Set h1 = Sheets("datosm1")
h1.Select
h1.PrintOut Copies:=1, Collate:=True
nombre = h1.[B2]
h1.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nombre
ActiveWorkbook.Close
End SubSaludos.Dante Amor
Funciona pero cuando le pongo una ruta para que lo guarde en una carpeta determinada me sale error: error '1004' en tiempo de ejecución
Quiero guardarla en esta ruta
C:\Users\RON\Documents\listados
Tienes que poner la ruta en entre comillas, por ejemplo:
Private Sub CommandButton2_Click()
'Act.Por.Dante Amor
Set h1 = Sheets("datosm1")
h1.Select
h1.PrintOut Copies:=1, Collate:=True
nombre = h1.[B2]
h1.Copy
Application.DisplayAlerts = False
ruta = "C:\Users\RON\Documents\listados"
ActiveWorkbook.SaveAs ruta & "\" & nombre
ActiveWorkbook.Close
End SubRevisa que estén bien los nombres de las carpetas, con todo y espacios.
Saludos. Dante Amor
