Hacer una búsqueda en una base datos a través de un TextBox
Lo que necesito es que al introducir un texto en un TextBox al darle al botón me arroje en un segundo TextBox el primer dato de la misma columna en una base datos. Pongo un ejemplo :
Lo que busco es que al introducir una ciudad, por ejemplo Toledo me devuelva en el segundo Textbox el país al que pertenece que estaría en la primera fila.
1 Respuesta
Respuesta de Carlos Arrocha
1
[Hola. Te dejo la macro para poner en un botón. Ingresa el dato a buscar en el textbox1, en el textbo2 te mostrará el resultado de la col. B.
[Saludos, Carlos Arrocha.
Private Sub CommandButton1_Click()
Set h1 = Sheets("Hoja1")
If TextBox1 = "" Then
MsgBox "Ingresa el dato a buscar"
Exit Sub
End If
x = TextBox1.Value
Set b = h1.Columns("A").Find(x, lookat:=xlWhole)
If b Is Nothing Then
MsgBox "El dato no existe", , "AVISO"
TextBox1 = ""
Else
TextBox2 = h1.Cells(b.Row, 2)
End If
End Sub
