Buscar con un textbox dos condiciones
Estoy desarrollando un formulario en donde quiero que al insertar un código en un textbox me busque las respuestas en dos textbox aparte por ejemplo: que en textbox1 coloca que el código de la referencia ejemplo 01 y el texbox2 me busque el nombre Libra y en el textbox3 otro el precio 115. Los datos los tengo organizados en una hoja nombra Datos así:
Columna A Columna B Columna C
Cod Detalle Valor
01 Libra 115
02 Trescuartos 110
2 Respuestas
[Hola
Te paso la macro.
Para finalizar hay 2 opciones Excelente o bueno saludos!
Private Sub CommandButton1_Click()
'
'***Por Adriel Ortiz
Set h1 = Sheets("Hoja1") 'Nombre de la Hoja
'
Set r = h1.Columns("A") 'Columna a buscar
Set b = r.Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox2 = Cells(b.Row, "B")
TextBox3 = Cells(b.Row, "C")
Else
MsgBox "No existe"
End If
End Sub
Gracias por tu pronta respuesta, pero no me funciona por que yo no quiero usar un commandbutton1 para darle click lo que quiero es al colocar el dato en el textbox_1 y al oprimir enter me aparezcan los datos en el textbox_2 y textbox_3
[Hola
Aquí va la solución, poniendo la macro en el evento exit del textbox1 asumiendo que es para buscar.
Escribes el código y presionas enter.
Nota: cambia el nombre de la hoja y de los textbox por el tuyo.
Para finalizar hay 2 opciones Excelente o bueno saludos!
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'
'***Por Adriel Ortiz
Set h1 = Sheets("Hoja1") 'Nombre de la Hoja
'
Set r = h1.Columns("A") 'Columna a buscar
Set b = r.Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox2 = Cells(b.Row, "B")
TextBox3 = Cells(b.Row, "C")
Else
MsgBox "No existe"
End If
End Sub
hola muchas gracias si esa era la idea, pero cuando cambio el nombre de la hoja donde tengo los datos; me busca los datos de otra hoja, agradezco tu atención estoy usando exactamente el macro como me lo indicaste, Gracias
[Hola
Macro actualizada
Para finalizar hay 2 opciones Excelente o bueno saludos!
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'
'***Por Adriel Ortiz
Set h1 = Sheets("Hoja1") 'Nombre de la Hoja
'
Set r = h1.Columns("A") 'Columna a buscar
Set b = r.Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox2 = h1.Cells(b.Row, "B")
TextBox3 = h1.Cells(b.Row, "C")
Else
MsgBox "No existe"
End If
End Sub
Esto te puede aportar algo más es un formulario que busca a la vez que escribes, todos estos ejemplos buscan a la vez que escribes con distintas variantes, si quieres buscar en dos columnas, adapta alguna de la que más se ajuste a lo que necesitas.