Importar datos de txt según fecha establecida

[Chrispal1977]

Estimados Maestros me encuentro realizando un proyecto de trazabilidad en el cual he podido extraer los datos de una determinada fecha a los textbox pero desde la hoja de excel que en realidad no es muy complicado, el problema es que necesito importar los datos desde un archivo de texto al formulario que adjunto en el presente los datos deben estar separados por delimitador punto y coma ya que contienen algunas columnas creadas con macros desde excel, no he resuelto aún realizar la búsqueda en función de la fecha y peor aún organizarlos en los textbox, de ser posible y si alguien me puede ayudar adjunto ambos archivos para su colaboración.

Agradezco de antemano todos los aportes brindados y su valioso tiempo empleado en este caso.

Ejemplo de trazabilidad.xlsm

TRAZABILIDAD.txt

[Chrispal1977]

Estimados amigos he realizado una modificación al archivo y he logrado extraer los datos en función de la fecha pero se importa toda la línea en un mismo textbox,  los datos deberían ir a cada uno de los textbox del formulario y no solo a uno, si alguien tiene alguna aportación o información bibliográfica que me pueda servir agradecería mucho su ayuda.

Saludos Cordiales.

Ejemplo de trazabilidad.xlsm

TRAZABILIDAD.txt

[Chrispal1977]

Alguien por favor que me indique si se puede realizar lo que pido, es posible en excel o definitivamente no se puede realizar a través de macros.

Gracias.

[Leopoldo Blancas]

Lo que me da si pongo la fecha 29/09/2018 es:

29/09/2018;10;AC01;291;22/09/2018;9;AC02;200;22/09/2018;9;AC02;285;23/09/2018;9

Ahora dime como lo quieres dividir.???

Hay funciones de Texto que nos ayudan a separar esto en un Array, es la función SPLIT... investiga y me dices que requieres.

Saludos.

[Antoni]

Prueba a ver que tal.

Ejemplo de trazabilidad.xlsm

[Chrispal1977]

Hace 2 horas, Leopoldo Blancas dijo:

Lo que me da si pongo la fecha 29/09/2018 es:

29/09/2018;10;AC01;291;22/09/2018;9;AC02;200;22/09/2018;9;AC02;285;23/09/2018;9

Ahora dime como lo quieres dividir.???

Hay funciones de Texto que nos ayudan a separar esto en un Array, es la función SPLIT... investiga y me dices que requieres.

Saludos.

Gracias por responder estimado Leopoldo, y si, hasta ahora lo único que he logrado es que en un textbox me salga toda la linea del archivo TXT en función de la fecha, lo que quiero es que se ubiquen los registros existentes en el orden que muestro en el ejemplo que adjunto en este correo, este ejemplo extrae al formulario datos existentes en la hoja de excel, que es valido si, pero  yo necesito traer datos desde el archivo TXT al formulario, ya que el programa no almacenará datos solo los importará, ya que estos datos serán creados a través de otro programa diferente.

Agradezco mucho tu interés en este tema y adjunto archivo de muestra.

TRAZABILIDAD AZUCAR MORENA.xlsm

[Chrispal1977]

Hace 1 hora, Antoni dijo:

Prueba a ver que tal.

Ejemplo de trazabilidad.xlsm

Esta casi perfecto @Antoni solo que no logro entender como este código logra traer los datos de la linea

 If InStr(1, linea, cod) > 0 Then
            datos = Split(linea, ";")
            For x = 1 To 3
               For y = 1 To 4
                  Controls("D" & x & y) = ""
                  Controls("D" & x & y) = datos(d)
                  d = d + 1
               Next
            Next
            existe = True
            Exit Do
        End If

 

Solo faltaría que el orden sea el correcto ya que según observo ya esta filtrando correctamente pero en el primer textbox d11 inicialmente se coloca la fecha filtrada, debería comenzar a extraerse los datos desde la segunda columna que irían siempre al textbox15 la tercera columna si existe el dato debería ir al textbox que has denominado d11, la cuarta columna al d12 y asi sucesivamente.

[Antoni]

Revisa el adjunto.

Ejemplo de trazabilidad.xlsm

[Chrispal1977]

Perfecto estimado @Antoni definitivamente eres un maestro, es justo lo que quería. Te agradezco mucho por tu ayuda y valioso tiempo empleado en la solución de mi proyecto.

Tema resuelto por @Antoni

Saludos Cordiales