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