Buenos días, lo que intento hacer es que al ingresar un código de barra a través de un lector me lo divida según los datos que contiene y me arroje los resultados.

El código contiene 21 dígitos.

los 4 primeros serian la presentación.

los siguientes 4 el numero de legajo de operario 1

los 4 siguientes el numero de legajo operario 2

los 8 seria la fecha de fabricación

y el ultimo seria el turno que pertenece.

Espero que puedan ayudarme, desde ya les agradezco y saludo.

Con un Texto en columna podrías hacerlo.

en datos/texto en columna.

le das delimitado si tiene separaciones / - . , Etc. y de ancho fijo si tiene el mismo ancho todas las entradas de datos.

si no resulta agrega un fragmento del excel para entender mejor que es lo que necesitas

Slds. JL

si de esa forma si se hacerlo, a lo que me refiero es que vi unos excel creados con macro, que al ingresar un código con la pistola lectora de barra ese código lo captura y lo posiciona en la celda A1 por ejemplo. Lo que yo quiero es que al leer ese dato y ubicarlo en la casilla A1 ademas lo valla dividiendo en las siguientes columnas para que quede separado de manera automática y así buscar los datos correspondientes para cada numero. no se si me entiendes. Gracias

Hola @emi15,

Prueba con esta Macro

Sub Dividir()

'

    Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1), Array(12, 1)), _

        TrailingMinusNumbers:=True


End Sub[/CODE]

Slds. JL.

Ejemplo.zip