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

1 Respuesta

10.775 pts.

Podrías especificar que rango de el Libro2 deseas copiar a el Libro 1 y en que rango deseas pegarlo en el Libro 1.

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 Sub

Hola 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...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas