Macro para copiar un rango de un libro
Me ayudan con una macro para copiar un rango de un libro en una hoja, que me aparezca una ventana para seleccionar el libro, entonces que la macro copie el rango de celdas de la A1 hasta la D20 y lo pegue en el libro que contiene la macro.
Gracias expertos
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro. Selecciona el libro y te va a copiar el rango en la hoja que tengas activa de tu libro con la macro, te va a copiar el rango en la celda A1
Sub CopiarUnRango()
'Por.Dante Amor
Application.ScreenUpdating = True
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Selecciona un archivo de excel"
.Filters.Clear
.Filters.Add "xls.*", "*.xls*"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show Then
Set l2 = Workbooks.Open(.SelectedItems.Item(1))
Range("A1:D20").Copy h1.[A1]
l2.Close
End If
End With
End SubSaludos.Dante Amor
Si es lo que necesitas.
