Copiar datos de rango variable en otro libro
Compañeros, quiero hacer una macro en el libro2 “Libro Destino” hoja1, para copiar los datos de rango variable del libro1 “Libro Origen” los datos están en la hoja1 el libro no está abierto.
1 respuesta
Hola Ricardo, los datos se encuentran en el libro1 Hoja1 y sus rangos de columnas van desde A hasta AK y las filas son de rangos variables, La macro se ejecutaría en el libro2 y pegaría los datos en la Hoja1 celda A1 des este libro.
Olvide mencionar que los dos archivos están en la misma ruta
Prueba con esta macro a ver si entendí bien y la cree a tus necesidades:
Sub CompletarLibro()
Dim ruta As String, direccion1 As String
Dim celdadestino As Range
ruta = "D:\PruebaCoparentreHojas"
fichero1 = "\Libro1.xlsx"
direccion1 = ruta & fichero1
Workbooks.Open Filename:=direccion1
Worksheets("Hoja1").Activate
Fila = Worksheets("Hoja1").Range("A65000").End(xlUp).Row
Worksheets("Hoja1").Range("A1", "AK" & Fila).Copy
Fila2 = Hoja1.Range("A65000").End(xlUp).Row
Hoja1.Range("A" & Fila2).PasteSpecial xlPasteAll
Workbooks("libro1").Close savechanges:=False
End Sub
No olvides calificar si es de utilidad la macro
Se ha producido el error '9' en tiempo de ejecución:
Subíndice fuera del intervalo
Workbooks("libro1").Close savechanges:=False
Sub CompletarLibro2()
Application.ScreenUpdating = False
Dim ruta As String, direccion1 As String
Dim celdadestino As Range
ruta = ActiveWorkbook.Path
fichero1 = "\Libro1.xlsx"
direccion1 = ruta & fichero1
Workbooks.Open Filename:=direccion1
Worksheets("Hoja1").Activate
Fila = Worksheets("Hoja1").Range("A1048576").End(xlUp).Row
Worksheets("Hoja1").Range("A1", "AK" & Fila).Copy
Fila2 = Hoja1.Range("A1048576").End(xlUp).Row
Hoja1.Range("A" & Fila2).PasteSpecial xlPasteAll
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
End SubHola Ricardo le hice una pequeña modificación a la macro y va de maravilla, en verdad muchas gracias por tu ayuda.
Siempre a tu orden amigo Saludos...
