Soy Principiante en Macros de Excel (VBA), pero lo que requiero hacer es lo siguiente:
Leer un código de Barras mediante un lector óptico: Cada vez que lea el código se borre el dato anterior de manera automática al hacer la lectura, esto con el fin de evitar que se concatenen los datos.
Cambiar Valor y Color de la Fila: Si existe coincidencia con la búsqueda automáticamente cambiara el valor de la celda de No Registrado a Registrado y pretendo que se cambie el color de la fila
Código
Private Sub txtFolio_Change()
cantidadFolios = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
Hoja1.AutoFilterMode = False
Me.listDatos = Clear
Me.listDatos.RowSource = Clear
y = 0
For fila = 2 To cantidadFolios
folio = Hoja1.Cells(fila, 1).Value
If UCase(folio) Like "*" & UCase(Me.txtFolio.Value) & "*" Then
Me.listDatos.AddItem
Me.listDatos.List(y, 0) = Hoja1.Cells(fila, 1).Value
Me.listDatos.List(y, 1) = Hoja1.Cells(fila, 2).Value
y = y + 1
End If
Next
End Sub
Private Sub UserForm_Activate()
contRegistrado
Me.listDatos.RowSource = "Registro"
Me.listDatos.ColumnCount = 2
End Sub
Sub contRegistrado()
cantidadFolios = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
cont = 0
For fila = 2 To cantidadFolios
If UCase(Hoja1.Cells(fila, 2).Value) = UCase("Registrado") Then
cont = cont + 1
End If
Next
Me.Contador.Caption = cont
End Sub
Anexo Proyecto para descarga: Descargar Proyecto