Copia Hoja a archivo nuevo y cuadro de dialogo
Primero agradecer la oportunidad de poder preguntar y aprender en este lugar.
Necesito lo siguiente, tengo un libro con una hoja que se llama "Listados". Quiero copiar todo lo que hay en la hoja, o desde el rango A1:F & ultimafila a un libro nuevo de Excel. Luego quiero que salga un cuadro de Dialogo que me pregunte donde guardar el libro nuevo, teniendo en cuenta que el título del libro nuevo sea "Listado nuevo", pero pudiendo elegir la ubicación. Y después volver al formulario donde estaba. Me gustaría hacerlo después de pulsar un botón en un Form del archivo Excel donde tengo la hoja a copiar.
No se si me he explicado bien.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Private Sub CommandButton1_Click()
'Por.Dante Amor
'
'Guardar los datos de la hoja "listados"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set l1 = ThisWorkbook
Set h1 = Sheets("listados")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
Set l2 = Workbooks.Add
Set h2 = l2.Sheets(1)
h1.Range("A1:F" & u).Copy h2.Range("A1")
'
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
.InitialFileName = "Listado nuevo"
.FilterIndex = 1
If .Show Then
arch = .SelectedItems(1)
l2.SaveAs Filename:=arch, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
l2.Close
MsgBox "Archivo guardado"
End If
End With
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
