Registro por gafette

hola, Orlando !

Estoy tratando de hacer un pequeno registro donde una persona ingrese un numero
por medio de un lector de codigo de barras y automaticamente en las celdas continuas de la misma fila
se registre la fecha y la hora en celdas separadas ademas el nombre de la persona
la lista de los nombres los tengo en la hoja 2.
Podria alguien ayudarme en decirme que necesito hacer para lograrlo?...

- supongo que el lector de codigos de barra debiera traer algun software para comunicarse con una pc -?-
- en caso contrario... visita:
http://cherbe.free.fr/rs232.html
http://www.taltech.com/products/winwedge.html

saludos,
hector.

- supongo que el lector de codigos de barra debiera traer algun software para comunicarse con una pc -?-
- en caso contrario... visita:
http://cherbe.free.fr/rs232.html
http://www.taltech.com/products/winwedge.html

saludos,
hector.


Que tal Hector, vi el demo del winwedge y se ve muy interesante y funcional, solo que necesito licencia y no puedo obtenerla por el momento, ¿conoces alguna forma por medio de codigo VB en Excel que pueda utilizar para poder hacer el registro?. Agradezco de antemano tu ayuda.

Depende de tu lector de código de barras. Si es del tipo que al detectar
algo escribe la información en donde esté activo el cursor, solamente
tendrás que utilizar la fórmula BUSCARV para encontrar el código referente
al empleado en la hoja 2 dentro de una lista. Ese tipo de lectores manda un
enter de forma automática después de la infórmación leída.

Para poner la fecha y hora, usa el siguiente procedimiento:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Dim fila As Integer
fila = Target.Row
ActiveSheet.Cells(fila, 3) = Format(Now, "dd/MM/yyyy")
ActiveSheet.Cells(fila, 4) = Format(Now, "hh:mm:ss")
Cells(fila + 1, 1).Select
End Sub

Esto te valida que cuando exista un cambio en la primera columna,
automáticamente rellene los campos de fecha y día con sus respectivos
valores. Para la columna de nombre, la fórmula debe de ser como la
siguiente:

=IF(A2<>"",VLOOKUP(A2,lista,2, 0),"")

Mi excel lo tengo en Inglés, el VLOOKUP es el BUSCARV, y el IF es el SI, así
validas que si la celda está vacía, no te ponga caracteres raros. La lista
en donde se hace la búsqueda está en la segunda hoja y ocupa las columnas A
y B. Solamente tienes que definir el rango seleccionando las 2 columnas
completas y nombrarlas como "lista".

Saludos.

"Reyes Orlando" escribió en el mensaje de noticias
news:

Estoy tratando de hacer un pequeño registro donde una persona ingrese un
numero por medio de un lector de codigo de barras y automaticamente en las
celdas continuas de la misma fila se registre la fecha y la hora en celdas
separadas ademas el nombre de la persona, la lista de los nombres los
tengo
en la hoja 2. Podria alguien ayudarme en decirme que necesito hacer para
lograrlo?


De antemano, muchas gracias.

Hoja 1
A B C D
1 Num_Emp Nombre Fecha Hora
2
3
4

Hoja 2
A B
1 Num_Emp Nombre
2 8752 xxxxxxxxxxxxxxx
3 9125 yyyyyyyyyyyyyyy
4 9865 zzzzzzzzzzzzzzz

Issac, muchas gracias por tu ayuda, tu respuesta es exactamente lo que
necesitaba.


"Isaac Gomez" wrote:

Depende de tu lector de código de barras. Si es del tipo que al detectar
algo escribe la información en donde esté activo el cursor, solamente
tendrás que utilizar la fórmula BUSCARV para encontrar el código referente
al empleado en la hoja 2 dentro de una lista. Ese tipo de lectores manda un
enter de forma automática después de la infórmación leída.

Para poner la fecha y hora, usa el siguiente procedimiento:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Dim fila As Integer
fila = Target.Row
ActiveSheet.Cells(fila, 3) = Format(Now, "dd/MM/yyyy")
ActiveSheet.Cells(fila, 4) = Format(Now, "hh:mm:ss")
Cells(fila + 1, 1).Select
End Sub

Esto te valida que cuando exista un cambio en la primera columna,
automáticamente rellene los campos de fecha y día con sus respectivos
valores. Para la columna de nombre, la fórmula debe de ser como la
siguiente:

=IF(A2<>"",VLOOKUP(A2,lista,2, 0),"")

Mi excel lo tengo en Inglés, el VLOOKUP es el BUSCARV, y el IF es el SI, así
validas que si la celda está vacía, no te ponga caracteres raros. La lista
en donde se hace la búsqueda está en la segunda hoja y ocupa las columnas A
y B. Solamente tienes que definir el rango seleccionando las 2 columnas
completas y nombrarlas como "lista".

Saludos.

"Reyes Orlando" escribió en el mensaje de noticias
news:
> Estoy tratando de hacer un pequeño registro donde una persona ingrese un
> numero por medio de un lector de codigo de barras y automaticamente en las
> celdas continuas de la misma fila se registre la fecha y la hora en celdas
> separadas ademas el nombre de la persona, la lista de los nombres los
> tengo
> en la hoja 2. Podria alguien ayudarme en decirme que necesito hacer para
> lograrlo?
>
>
> De antemano, muchas gracias.
>
> Hoja 1
> A B C D
> 1 Num_Emp Nombre Fecha Hora
> 2
> 3
> 4
>
> Hoja 2
> A B
> 1 Num_Emp Nombre
> 2 8752 xxxxxxxxxxxxxxx
> 3 9125 yyyyyyyyyyyyyyy
> 4 9865 zzzzzzzzzzzzzzz
>
>
>