Macro Buscar para lector de tarjetas en Excel

[Monimo]

mmm pues solo debes ir leyendo las celdas. S i por ejemplo ya encontraste con FIND el codigo, para obtener la celda activa seria

ActiveCell
para obtener la dirección de esa celda seria

ActiveCell.row y activecell.column que te daran el renglon y la columna de la celda activa, es decir donde encontraste el código. Con esto solo deberas ir aumentando la columna pra moverte por la hoja de excel hacia la derecha e ir pasandole el valor de esa celda al control donde quieras desplegar esa info, por ejemplo en una etiqueta.

renglon=ActiveCell.Row
columna=ActiveCell.column

Para el nombre por ejemplo:
label1.Caption=cells(renglon,columna+1).value *es 'columna + 1' porke 'columna' es la columna donde esta el codigo y una celda a la derecha estaria el nombre...

y asi ...


Para el caso del otro boton de recogida/no recogida simplemente al presionar el boton :
puedes volver a buscar el código, es decir leer el código donde lo desplegaste( caj de texto o label) y ya sabes q 4 columnas a la derecha es decir columna+4 esta el campo de recogida no recogida. Puedes escribir un 0 para no recogida y un 1 para recogida. A la hora de leer el código con la lectora, y encontrarlo en la base puedes evaluar si ese último campo tiene un uno o un cero y escribir en la etiqueta recogida o no recogida y deshabilitar el boton en caso de q este ya recogida, o tenga un 1.