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

1 respuesta

Respuesta
2

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 Sub

Saludos.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 Sub

Revisa que estén bien los nombres de las carpetas, con todo y espacios.

Saludos. Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas