¿Como puedo actualizar el contenido de un Label despues de ingresar un texto en un textbox?
Tengo un buscador en un formulario donde al ingresar un codigo en un textbox, presiono una imagen de una lupa que inserte, para que me muestre el producto que busco en un label. Lo que necesito es que este proceso sea automatico despues de ingresar el codigo, que no haya necesidad de presionar la lupa.
2 Respuestas
Puedes hacerlo automático desde que vas capturando caracteres en el textbox, con el siguiente evento:
Private Sub TextBox1_Change()
'Por.Dante Amor
Label1.Caption = ""
Set h = Sheets("Hoja1")
Set r = h.Columns("A")
Set b = r.Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
Label1.Caption = h.Cells(b.Row, "B")
End If
End SubCambia en la macro los datos en donde se va a realizar la búsqueda "Hoja1" y "A". También cambia la letra "B" por la columna donde tienes el dato que quieres desplegar en el Label.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Muchas Gracias. ¿Pero si quiero desplegar más información en otros label? O sea, yo coloco el código y tengo 3 label, ¿dónde en cada uno aparece diferente información de ese código? Gracias
Agregas los demás label, por ejemplo:
Private Sub TextBox1_Change()
'Por.Dante Amor
Label1.Caption = ""
Set h = Sheets("Hoja1")
Set r = h.Columns("A")
Set b = r.Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
Label1.Caption = h.Cells(b.Row, "B")
Label2.Caption = h.Cells(b.Row, "C")
Label3.Caption = h.Cells(b.Row, "D")
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
