Pasar el contenido de una hoja excel a un nuevo libro
Hola amigos expertos.
La consulta es la siguiente:
Tengo un UserForm en el cual deseo agregar un botón que realize la acción de pasar el contenido de una hoja especifica, por ejemplo la "Hoja3". Y ese contenido enviarlo a un Nuevo libro y pedir "Guardar como", para poder guardarlo en la ruta que yo quiera y con el nombre que yo quiera también.
Saludos y Gracias !!
1 Respuesta
Esta sería la macro
Private Sub CommandButton1_Click()
'Por.DAM
Sheets("Hoja3").Copy
Set l1 = ActiveWorkbook
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
If .Show Then
march = .SelectedItems(1)
l1.SaveAs Filename:=march
ActiveWorkbook.Close
End If
End With
End Sub
Hola de nuevo DAM
Gracias por tu ayuda me ha funcionado perfecto.
Solo aprovechando y me puedas contestar si cambia mucho el codigo, querer almecenar la misma hoja pero en formato ".pdf ". ?
Saludos !!
¿Quieres guardarlo como libro de excel y también como PDF? Con gusto te ayudo con esa macro. Solamente te pido que finalices esta pregunta y crees una nueva. En la nueva pregunta me pones si quieres un excel y un pdf o únicamente el pdf.
Saludos. DAM
