copiar datos sin duplicarlos o solo los nuevos

[spardante]

Hola a todos, tengo una duda sobre la elaboracion o cambio que le quiero hacer a mi codigo.

Funcion: tengo 3 libros de los cuales copio informacion de 2 al tercero (resumen) y funciona bien.

Problema: cuando copio los datos de los 2 libros al tercero me copia todos los datos desde el primero, y los datos que se ingresan en esos 2 libros se hace diariamente osea se registran varios datos ya sea uno o diez dependiendo.

Lo que quiero: la funcion seria asi que por ejemplo el dia de hoy se agregaron 4 registros, los copio al libro de resumen, el dia de mañana se agregan 7 registros, aqui seria que como ya estan los 4 del dia anterior solo me copie los nuevos 7 registros sin volverme a copiar los que ya ingrese, si me explico.

Espero su apoyo para ver como realizar este funcion o cambio a mi codigo les dejo el codigo que sirve para copiar los datos del otro libro.

Gracias.

Código PHP:

  Sub leer_fichero_excel()
 
Application.ScreenUpdating = False
 
On Error Resume Next
 
ruta = ThisWorkbook.Path
fichero = "USC.xlsx"
 
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & ruta & "\" & fichero & _
                   ";Extended Properties=""Excel 12.0;HDR=Yes;"""
 
Set rs = New ADODB.Recordset
 
Sql = "SELECT * FROM B3:H"
 
rs.Open Sql, Conn, adOpenStatic, adLockOptimistic
 
 
Cells(Rows.Count, "G").End(xlUp).Offset(, -4).Select
 
 
Do While Not rs.EOF
    ActiveCell.Offset(1, 13) = rs(0)
    ActiveCell.Offset(1, 12) = rs(1)
    ActiveCell.Offset(1, 10) = rs(2)
    ActiveCell.Offset(1, 11) = rs(3)
    ActiveCell.Offset(1, 8) = rs(4)
    ActiveCell.Offset(1, 4) = rs(5)
 
    rs.MoveNext
 
    ActiveCell.Offset(1, 0).Select
Loop
 
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
 
Application.ScreenUpdating = True
End Sub 
   

[mrocf]

Tienes que identificar -de alguna forma- los registros que ya fueron copiados. Por ejemplo:

a) ¿La copia se hace por fecha?
b) ¿Hay algún Nº correlativo o código que permita identificar al último registro copiado?
c) Si no tienes nada específico (como lo anterior), entonces deberías incorporar una columna adicional a los libros desde donde se entrega la información: "C" (si fue copiado), "en blanco" (si no lo fue aún).

En cualquier caso, todo lo que te menciono afecta la sentencia SQL que ya no será

SELECT *

sino que identificará los datos a copiar.

De todos modos y sin ver el libro que entrega los datos ni el libro que los recibe, no podría profundizar más en el tema.

Saludos, Cacho R.