Formulario para ingresar datos seguidamente mediante lectora de código de barras

tengo un TXTCODIGO por donde ingreso códigos mediante lector de código de barras lo que yo quiero es saber que procedimiento usar pero el que uso es este procedimiento.

Private Sub botentrar_Click()
Sheets("Union").Activate
Range("a2").Activate
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Activate
ActiveCell.Offset.Value = txtcodigo
ActiveCell.Offset(0, 1).Value = txtplanilla
ActiveCell.Offset(0, 2).Value = Val(txtproducto)
ActiveCell.Offset(0, 3).Value = txtnombre
If cbdias = "LUNES" Then
ActiveCell.Offset(0, 4).Value = Val(txtprecio)
ElseIf cbdias = "MARTES" Then
ActiveCell.Offset(0, 5).Value = Val(txtprecio)
ElseIf cbdias = "MIÉRCOLES" Then
ActiveCell.Offset(0, 6).Value = Val(txtprecio)
ElseIf cbdias = "JUEVES" Then
ActiveCell.Offset(0, 7).Value = Val(txtprecio)
ElseIf cbdias = "VIERNES" Then
ActiveCell.Offset(0, 8).Value = Val(txtprecio)
ElseIf cbdias = "SÁBADO" Then
ActiveCell.Offset(0, 9).Value = Val(txtprecio)
ElseIf cbdias = "DOMINGO" Then
ActiveCell.Offset(0, 10).Value = Val(txtprecio)
End If
txtcodigo.Value = ""
txtproducto.Value = ""
labplanilla.Caption = ""
ActiveWorkbook.Sabe
If CheckBox1 = False Then
txtcodigo.SetFocus
ElseIf CheckBox1 = True Then
txtplanilla.Value = ""
txtplanilla.SetFocus
End If
End Sub

1 Respuesta

Respuesta

Pero no entiendo qué es lo que necesitas

Puedes explicar con detalle qué te falta.

Saludos. DAM

Lo que necesito es que para ingresar el dato no tenga la
necesidad de hacer click en un botón .
de tal manera que al pasar la lectora por el código de barras automáticamente lo
almacene y luego este listo para recibir la siguiente lectura!!

Cambia el evento, borra tú código y escribe el siguiente:

Private Sub txtcodigo_Change()
    If Len(txtcodigo) = 8 Then
        Sheets("Union").Activate
        Range("a2").Activate
        Selection.End(xlDown).Activate
        ActiveCell.Offset(1, 0).Activate
        ActiveCell.Offset.Value = txtcodigo
        ActiveCell.Offset(0, 1).Value = txtplanilla
        ActiveCell.Offset(0, 2).Value = Val(txtproducto)
        ActiveCell.Offset(0, 3).Value = txtnombre
        If cbdias = "LUNES" Then
        ActiveCell.Offset(0, 4).Value = Val(txtprecio)
        ElseIf cbdias = "MARTES" Then
        ActiveCell.Offset(0, 5).Value = Val(txtprecio)
        ElseIf cbdias = "MIÉRCOLES" Then
        ActiveCell.Offset(0, 6).Value = Val(txtprecio)
        ElseIf cbdias = "JUEVES" Then
        ActiveCell.Offset(0, 7).Value = Val(txtprecio)
        ElseIf cbdias = "VIERNES" Then
        ActiveCell.Offset(0, 8).Value = Val(txtprecio)
        ElseIf cbdias = "SÁBADO" Then
        ActiveCell.Offset(0, 9).Value = Val(txtprecio)
        ElseIf cbdias = "DOMINGO" Then
        ActiveCell.Offset(0, 10).Value = Val(txtprecio)
        End If
        txtcodigo.Value = ""
        txtproducto.Value = ""
        labplanilla.Caption = ""
        ActiveWorkbook.Sabe
        If CheckBox1 = False Then
        txtcodigo.SetFocus
        ElseIf CheckBox1 = True Then
        txtplanilla.Value = ""
        txtplanilla.SetFocus
        End If
    End If
End Sub

Cambia en la macro el número 8 en esta línea y escribe el número de caracteres que lees en el código de barras.

If Len(txtcodigo) = 8 Then

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para crear tabla dinámica seleccionando archivo csv

Tengo un libro excel el cual necesito conectar con un archivo csv que se va actualizando. Necesito una macro a la que yo le indique la ubicación del archivo csv y me cree una tabla dinámica con ese contenido en la hoja "datos" de mi libro. Con las...
1 respuesta

Introducir codifico de producto y que me salga descripción en tabla de excel

Necesitaba en una hoja de excel que al teclear el código del producto me saliese la descripción del producto
4 respuestas

Cómo automatizar una tabla Power Query

En un trabajo de Excel he sacado una tabla con power query. Necesito que la tabla creada por power query se automatice al cambiar los datos de la tabla Excel.
1 respuesta

Estoy en excel trabajando con una lista de datos

Para lo cual selecciono valisacion de datos, la opción listas ¿Cómo lo hago para escribir cuando el dato no esta en la lista prediseñada?
1 respuesta

Como obligar que una celda tenga datos

Tengo una tabla en excel con dos campos articulo valor zapatos 100 camisa Necesito que si se escribe camisa, obligue a colocar en la celda siguiente un valor
1 respuesta

¿Cómo ver el ultimo dato de listbox cuando se actualiza?

A tod@s! Tengo un Listbox al que se le cargan varios datos, quiero que cuando se actualice, vaya directamente al ultimo valor mostrándolo en el ListBox. ¿No se si se puede actuar con algún código acutando en el Scroll para que se desplace hasta abajo...
2 respuestas

Macro que cargue datos desde un Listbox a un Formulario

Pregunta para Elsa Matilde Estoy tratando de conseguir una Macro que me permita al señalar una fila en el ListBox2 se refleje en el formulario Form_Factura. Podrá ayudarme
1 respuesta

Formula con dos condiciones

Necesito una formula que me diga si la celda de la izquierda esta vacía me ponga un guion (-), pero si la celda tiene información me ponga esta formula =NOW().
7 respuestas

Como mejorar Macro que actualiza Datos en 2 hojas del mismo Libro

Mediante la grabadora de Macro pude desarrollar la Macro Agregar_HojaAuxiliar(), pero veo a mi criterio por lo visto en dicho foro otras Macros que no son tan extensas por que sintetizan algunas líneas, habrá alguna posibilidad que en esta se pueda...
2 respuestas

Colocar 2 calendarios en hojas diferentes dentro del mismo archivo

Tengo un archivo con 2 hojas "Asistencias" y "Datos", coloque 1 calendarios en ambas hojas, pero sucede en la hoja "Asistencia "que al querer colocar la fecha en el TextBox2 dentro del formulario surge un error (1004 en tiempo de ejecución: Error en...
2 respuestas