Copiar datos de un libro a otro

[Puche]

Hola buenas noches,

Estoy intentado crear una macro para copiar datos de una tabla de un libro a otro.

Este es el código que estoy utilizando:

Sub copiar_a_libro_dashboard()

Application.ScreenUpdating = False

'Variables
    Dim wbLibroOrigen As Workbook
    Dim wsHojaOrigen As Worksheet
    Dim wbLibroDestino As Workbook
    Dim wsHojaDestino As Worksheet
'Ruta
    Dim Ruta As String

    Ruta = "C:\Users\Puche\Desktop\PAQUETERIA PALAU\BASE DATOS.xlsx"

'Datos destino
    Set wbLibroDestino = Workbooks.Open(Ruta)
    Set wsHojaDestino = wbLibroDestino.Worksheets("Base Datos")

'Datos origen
    Set wbLibroOrigen = Workbooks(ThisWorkbook.Name)
    Set wsHojaOrigen = wbLibroOrigen.Worksheets("PALAU")

'Obtener la ultima posicion de la tabla de la hoja origen de datos
    final_origen = wsHojaOrigen.Range("A" & Rows.Count).End(xlUp).Row
    
'Obtener la ultima posicion de la tabla de la hoja destino de datos
    
    final_destino = wsHojaDestino.Range("A" & Rows.Count).End(xlUp).Row
    
'Copia los datos y los pega en el libro destino

    wsHojaOrigen.Range("A2:M2" & final_origen).Copy Destination:=wsHojaDestino.Range("A5:M5" & final_destino)

'Cierra libro y guarda
'Workbooks(wbLibroDestino.Name).Close SaveChanges:=False


End Sub

Cuando ejecuto la macro por primera vez, me copia bien los datos al otro libro (50 filas), el problema es cuando intento ejecutar la macro otra vez.

Debería de copiar los registros a partir de la fila 51 pero no funciona bien el código que tengo.

Espero me puedan decir donde tengo el error de código

Saludos,

 

[Janlui]

VEO QUE ARCHIVO DESTINO NO GUARDA LOS CAMBIOS

[Puche]

@Janlui

Bueno, solo tengo que cambiar el 

SaveChanges:=True

Para poder ver si realiza bien la macro, tengo comentada esa línea para que no me cierre el libro. 

El tema es que no me localiza bien la ultima fila del libro destino cuando intento volver a pasar datos nuevos.

 

[Janlui]

Corre la Macro Paso a Paso para que detectes la falla (Con F8)

[Puche]

@Janlui

No es que me de un fallo, la macro no da ningún error.

Creo que no me he explicado bien..

El problema es que cuando ejecuto la macro por 2 vez, la intención es que vuelque los datos de nuevo pero teniendo en cuanta la ultima fila del libro de destino. Es decir, la primera vez vuelca 50 registros, por lo que cuando intento volcar la información por 2 vez, estos datos deberían de copiarse a partir de la linea 51 y no lo hace.

O bien no me copia nada o me las copiar en la fila 250, fuera de tabla.

[Janlui]

Puedes subir tu archivo?

 

[Puche]

@Janlui

Documents.rar

Aquí lo tienes.

La macro que lo ejecuta esta en el modulo 1 del libro ExcelPaq.

Saludos!

[Janlui]

Cambia esto en la penultima instruccion

 wsHojaOrigen.Range("A2:M" & final_origen).Copy Destination:=wsHojaDestino.Range("A" & final_destino + 1)

[Puche]

@Janlui

Perfecto! Muchísimas gracias

Faltaba poner el +1 por lo que veo.

Doy por cerrado el tema.

Saludos!

[alex.vinan]

se puede hacer una macro que copie distintas celdas seguidas y pegue el contenido de esas celdas en un sola por ejemplo tengo los nombres en la columna A1 y en la B1 Los apellidos; al ejecutar la macro quiero que tanto nombres y apellidos consten solo en una celda; es posible?... Saludos!