Buscar valor de dos textbox en dos columnas Excel
Tengo un formulario y debo buscar en una hoja Excel, "Registros", los campos de los Textbox1 y Textbox2 del "Form_Registros" que coincidan con las columnas A y B de la hoja citada, "Registros".
Buscar con un solo Texbox podría hacerlo, pero que se cumplan los dos no se hacerlo.
Tengo la idea concatenando los Textbox y las columnas, pero no se ponerlo en la práctica.
2 Respuestas
Estos ejemplos
https://www.programarexcel.com/2013/04/macro-extrae-datos-en-base-criterios-y.html
Puedes concatenar los dos textbox y luego buscas esa cadena de texto
Cad=textbox1 & textbox2
Mira estos ejemplos que podrán dar algo de idea al respecto
Te dejo un ejemplo de cómo resolverlo. Tendrás que leer los comentarios en la macro para ajustar las referencias ya que no indicas en qué columnas estarán los datos a buscar.
Observa en la imagen que tengo una tabla y en los textbox coloco un texto de la col A y otro de la col F. Lo que hace la macro es filtrar la tabla por esas 2 columnas y si hay alguna fila filtrada coloca en los otros textbox el contenido del resto de las columnas... en este ejemplo solo el de la col C.
Private Sub CommandButton1_Click()
'x Elsamatilde
'se establece cuál es la última fila de la tabla
finx = Range("A" & Rows.Count).End(xlUp).Row
'se filtra la hoja por los criterios de los textbox (col A y F)... ajustar
If ActiveSheet.AutoFilterMode = False Then
Range("A1:F1").AutoFilter
End If
ActiveSheet.Range("$A$1:$F$" & finx).AutoFilter Field:=1, Criteria1:=TextBox1.Text
ActiveSheet.Range("$A$1:$F$" & finx).AutoFilter Field:=6, Criteria1:=TextBox2.Text
'se evalúa si hay registros encontrados
finy = Range("A" & Rows.Count).End(xlUp).Row
If finy < 2 Then
'no hay datos encontrados
Else
'se completan otros controles
TextBox3 = Range("C" & finy)
End If
End SubEspero te sirva la idea. Si esto resuelve tu consulta no olvides valorarla (opciones: excelente o buena)
Esta es la imagen del ejemplo:
