Hola, copiar y pegar con una macro
hola, como hago para que una macro abra un archivo, lo copie, pero a a hora de pegar lo haga en la primer columna y celda vacía que pueda encontrar??
por ej, antes de pegar, debería buscar en la columna "A" una celda vacía, que pudría ser la 2 como la 1500.
espero haberme explicado.
saludos y muchísimas gracias
1 Respuesta
Respuesta de Dante Amor
1
Prueba con esta macro
Sub abrearchivo()
'Por.Dam
ruta = ThisWorkbook.Path
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo de excel"
.Filters.Clear
.Filters.Add "Todos", "*.*"
.Filters.Add "Archivo xls", "*.xls*"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = ruta
'.Show
If .Show Then
arch = .SelectedItems.Item(1)
Workbooks.Open arch
Set l2 = ActiveWorkbook
Set h2 = l2.ActiveSheet
h2.UsedRange.Copy
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Range("A" & u).PasteSpecial Paste:=xlAll
l2.Close False
End If
End With
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
