Textbox con 2 criterios de búsqueda
Soy nuevo en esto y estoy atorado haber si me pueden ayudar
Tengo un userform con varios textbox lo que quiero es que me haga una búsqueda
Del textbox5 y textbox7 y que me de el resultado en textbox1
En la hoja "Contratos" tengo lo que quiero que busque, textbox5 busca en columna B
Y textbox7 busca en columna C y si cumplen los 2 criterios, entonces que me arroje el resulto de la
Columna D en el textbox1, el resultado siempre esta en la misma fila
B C D
IMPULSORA TIPO 2 230,000
1 respuesta
H o l a:
Agrega un commandbutton a tu formulario, presiona doble click sobre el commandbutton y pon el siguiente código:
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("Contratos")
TextBox1 = ""
For i = 1 To h.Range("B" & Rows.Count).End(xlUp).Row
If h.Cells(i, "B") = TextBox5 And h.Cells(i, "C") = TextBox7 Then
TextBox1 = h.Cells(i, "D")
Exit For
End If
Next
End SubCaptura los datos en los textbox 5 y 7, presiona el botón y la macro buscará los datos en las celdas, si los encuentra entonces te pone en el textbox1 el resultado.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
¡Gracias! muchas gracias funciona perfecto
Una pregunta más, ¿para insertar un msgbox si no hay resultado?
Como le hago
Macro actualizada:
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("Contratos")
TextBox1 = ""
existe = False
For i = 1 To h.Range("B" & Rows.Count).End(xlUp).Row
If h.Cells(i, "B") = TextBox5 And h.Cells(i, "C") = TextBox7 Then
TextBox1 = h.Cells(i, "D")
existe = tru
Exit For
End If
Next
If existe = False Then
MsgBox "No existe"
End If
End Sub
Así:
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("Contratos")
TextBox1 = ""
existe = False
For i = 1 To h.Range("B" & Rows.Count).End(xlUp).Row
If h.Cells(i, "B") = TextBox5 And h.Cells(i, "C") = TextBox7 Then
TextBox1 = h.Cells(i, "D")
existe = True
Exit For
End If
Next
If existe = False Then
MsgBox "No existe"
End If
End Sub
