Problemas al programar en excel
Buendos días espero me puedan ayudar tengo una base se datos en libro 2... Lo que quiero es programar un textbox para que cuando ponga el numero que de id me arroje en un megabox o en una label o en cualquier ventana o dentro de otro textbox lo que tiene en la celda siguiente por ejemplo yo busco a200 y me arroje lo que hay en d200 y así con cada uno que busque dando click en el botón de buscar
1 respuesta
Respuesta de Elsa Matilde
1
Te dejo una macro de ejemplo para el botón de búsqueda.
Fíjate en los comentarios para ajustar tus referencias.
Private Sub CommandButton1_Click()
'x Elsamatilde
'ajustar el control que tiene el dato a buscar
dato = TextBox1
'se busca el dato en Hoja2, col A
Set busco = Sheets("Hoja2").Range("A2:A5000").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
'significa que lo encontró y coloco en textbox2 lo que se encuentra en la col D
'es decir 3 col a derecha
TextBox2 = busco.Offset(0, 3).Value
Else
'opcional: mostrar un mensaje o limpiar el textbox2
TextBox2 = ""
MsgBox "No se encontró el dato solicitado"
End If
'libero la variable
Set busco = Nothing
End Sub
Sdos y no olvides finalizar la consulta
Fíjate en los comentarios para ajustar tus referencias.
Private Sub CommandButton1_Click()
'x Elsamatilde
'ajustar el control que tiene el dato a buscar
dato = TextBox1
'se busca el dato en Hoja2, col A
Set busco = Sheets("Hoja2").Range("A2:A5000").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
'significa que lo encontró y coloco en textbox2 lo que se encuentra en la col D
'es decir 3 col a derecha
TextBox2 = busco.Offset(0, 3).Value
Else
'opcional: mostrar un mensaje o limpiar el textbox2
TextBox2 = ""
MsgBox "No se encontró el dato solicitado"
End If
'libero la variable
Set busco = Nothing
End Sub
Sdos y no olvides finalizar la consulta
