Buscar con dos coincidencias
Buenas expertos, en un userform tengo dos textbox:
textbox1 ingreso numero de factura
textbox2 ingreso rut proveedor
botón buscar
en la hoja1 excel
columna a columna b
fila numero factura rut proveedor
5 124 5.518.5174-k
6 8526 9.914.635-4
7 124 10.848.542-6
Necesito una macro en el botón buscar, que busque el valor ingresado en el textbox1 en toda la columna A y el valor ingresado en el textbox2 en la columna B, de acuerdo a estas dos coincidencias seleccione la celda con el valor del textbox1 de la columna A.
ejemplo:
textbox1=124
textbox2=10.848.542-6
seleccione la celda "A7" que es la que coincide con lo buscado y no la "A5" que solo coincide con el numero de factura.
Desde ya muchas gracias
la macro enviada por luismondelo es:
Private Sub CommandButton1_Click()
'por luismondelo
valor1 = TextBox1.Value
valor2 = TextBox2.Value
Set busca = Sheets("hoja1").Range("a3:a100").Find(valor1, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
If busca.Offset(0, 1).Value = valor2 Then
busca.Select
Else
MsgBox "no hay coincidencias"
TextBox1.Value = ""
TextBox2.Value = ""
End If
Else
MsgBox "no hay coincidencias"
TextBox1.Value = ""
TextBox2.Value = ""
End If
End Sub
lo que pasa que si coloco:
textbox1=124
textbox2=10.848.542-6
selecciona la celda correcta con la macro, pero si coloco:
textbox1=124
textbox2=5.518.514-k
me sale que no hay coincidencias
Utiliza la siguiente macro
Private Sub CommandButton1_Click()
'Por.DAM
b = 0
If IsNumeric(TextBox1) Then
v1 = Val(TextBox1)
Else
v1 = TextBox1
End If
If IsNumeric(TextBox2) Then
v2 = Val(TextBox2)
Else
v2 = TextBox2
End If
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "A") = v1 And Cells(i, "B") = v2 Then
Cells(i, "A").Select
b = 1
Exit For
End If
Next
If b = 0 Then
MsgBox "No hay coincidencias", vbInformation
End If
End Sub Saludos.DAM
Si es lo que necesitas.
al correr la macro me sale:
Error de compilación
no se ha definido Sub o Funtion
por favor haz la prueba en excel
Saludos
Antes de enviarla, siempre la pruebo, ¿copiaste completa la macro?
Revisa línea por línea la macro y verifica que no se haya amontonado alguna línea
Saludos. DAM
Gracias DAM, gracias el error era un espacio dado en una linea de la macro, funciona muy bien y era lo que necesitaba, ustedes los expertos son de gran ayuda para los usurarios con pocos conocimientos, es muy bonita tu labor.
Saludos
de Chile
tiototillos
