Buscar con 2 textbox en una hoja de excel

Tengo un formulario y tengo el código en vb para buscar un registro al introducir lo buscado en el textbox y mostrarlo, pero no se como hacerlo para buscar el registro con 2 datos
Este es el código para buscar con un textbox, ¿pero cómo lo hago para 2? Gracias!
Private Sub botonBuscar_Click()
Application.ScreenUpdating = False
Sheets("Profesores").Select
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox10 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox21 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox22 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox23 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox24 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox25 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox26 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox27 = ActiveCell
End Sub

1 respuesta

Respuesta
1
Mmm... ¿el criterio de búsqueda que intentas definir esta basado en 2 variables?
Es decir si no hay resultados por criterio 1, ¿entonces buscar por criterio 2 o necesitas que se cumplan ambos criterios en forma copulativa?
Sí, es de 2 variables pero para una parte del código necesito que se cumplan ambos criterios y para otra parte del código necesito que seas excluyentes, como escribiste tú: si no hay resultados por criterio 1, entonces buscar por criterio 2.
Te agradezco un montón!
En tu macro la búsqueda que realizas esta definida para coincidencia parcial, es decir basta que parte de la cadena contenga el dato busado o sea similar, para que sea evaluada como coincidencia.
En lo relativo a buscar por un criterio y luego por el otro. Te sugiero utilizar la búsqueda ajustado a la cadena que buscas, de esta forma si no hay coincidencia se devolverá el error numero 9, te puedes aprovechar de este error para indicarle a excel que si aparece este error luego de generar la búsqueda por el valor 1 entonces luego busque por el valor 2
algo así como
on error goto err:
Buscar por criterio 1
err: if err.number=9 then busca segun criterio 2
esto busca la coincidencia exacta
        Cells.Find(What:="juan", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
Respecto a realizar búsquedas de una cadena en donde se cumplan criterio de búsqueda 1 y 2 en forma simultantea, bueno... eso es lo mismo que buscar por un solo criterio, ya que si necesitas que se cumplan ambos, se pierde el carácter de individualidad de la variable.
Gracias!
Te molesto de nuevo,¿cómo ocupo este código?
Cells.Find(What:="juan", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
Cuando quiero encontrar datos que se encuentran en diferentes columnas por, por ejemplo en una base de datos de profesores que contenga: nombre, apellido, dirección, teléfono, ¿etc y necesito encontrar por nombre y apellido al mismo tiempo y que arroje el registro en un formulario?
Insisto, debes reducir ambas variables a una ( nombre + apellido) y en base a esa nueva variable realizar la búsqueda, prueba a concatenar ambos datos y sobre esa data realizas la búsqueda, en ese caso debes modificar la linea:
Cells.Find(What:="juan",
en donde  juan debe ser sustituido por el control del formulario ( cuadro de texto)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Reemplazar texto en Excel

Estoy intentando hacer una macro en Excel 2003 para que me busque un texto en un rango y cuando lo encuentre seleccione la celda y luego se mueva una celda abajo. Una vez posicionado allí tiene que sustituir una serie de caracteres. Hasta aquí me...
1 respuesta

Macro Diferenciar nombres parecidos en celdas

Junto con saludar y agradecer su ayuda anterior, necesito arreglar un pequeñito problema usando la macro: Como tengo varias celdas con nombres parecidos (bomba 14, bomba 141, bomba 142), la macro reconoce la palabra "bomba 14" e ingresa el dato, pero...
1 respuesta

Eliminar filas de varias hojas a la vez

Me gustaría eliminar filas de varias hojas, cuyo rango de celdas contengan determinadas palabras y que se insertaran las filas eliminadas en otra hoja nueva llamada "HOJA DEFINITIVA". Las palabras en cuestión son: "obras completas" (las dos palabras...
1 respuesta

Macro que busque los datos en otra hoja(mismo libro) y copie en otra.

Es urgente alguien me puede ayudar estoy elaborando una bse de datos en excel(2007). 1-El libro contiene lo siguiente: 2 hojas (consulta, base de datos). Quisiera insertar un TextBox en el cual ingresar los datos a buscar, 2 combobox (1. La lista de...
1 respuesta

Macro que busque y seleccione (sin filtro)

En esta oportunidad les quito un tiempito para hacerles una consulta en cuanto una macro que busque y seleccione la celda encontrada, si no existe me de un MsgBox y si la celda de búsqueda está en blanco que también me lo diga. Tengo este Macro:...
1 respuesta