Código para Buscar desde un Textbox
Estoy intentado realizar una búsqueda desde un Textbox a una serie de datos que tengo en la Hoja1, y me funciona perfectamente siempre y cuando se encuentre el dato, no se como programarlo para que si no se encuentra me muestre un MsgBox.
Me pueden colaborar.
Me pueden colaborar.
1 respuesta
Respuesta de valedor
1
El que mostraras el código que usas hubiese ayudado mucho, hay varias formas de buscar en Excel, comúnmente yo uso
Dim rBuscado As Range
Dim strDato As String
strDato = "yo"
Set rBuscado = Range("A1:E10").Find(strDato)
If Not rBuscado Is Nothing Then
Msgbox "Dato encontrado"
Else
MsgBox "Dato NO encontrado"
End If
Lo cual puede tener muchas variantes, saludos...
Mauricio Baeza
[email protected]
Todo lo que no es dado es perdido
*==========================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
pretendo que te tomes un minuto para FINALIZARLA, si
hubiera satisfecho -en alguna medida- tu requerimiento.
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.
Dim rBuscado As Range
Dim strDato As String
strDato = "yo"
Set rBuscado = Range("A1:E10").Find(strDato)
If Not rBuscado Is Nothing Then
Msgbox "Dato encontrado"
Else
MsgBox "Dato NO encontrado"
End If
Lo cual puede tener muchas variantes, saludos...
Mauricio Baeza
[email protected]
Todo lo que no es dado es perdido
*==========================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
pretendo que te tomes un minuto para FINALIZARLA, si
hubiera satisfecho -en alguna medida- tu requerimiento.
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.
Es excelente la búsqueda, ahora si es posible como puedo hacer para que me muestre en un Label el nombre a quien corresponde el código encontrado.
Si me colaboras, perfecto, sino de todas formas finalizaré tu magnifica respuesta.
Si me colaboras, perfecto, sino de todas formas finalizaré tu magnifica respuesta.
El cambio es solo de una linea
Dim rBuscado As Range
Dim strDato As String
strDato = "yo"
Set rBuscado = Range("A1:E10").Find(strDato)
If Not rBuscado Is Nothing Then
Label1.Caption = rBuscado.Value
Else
MsgBox "Dato NO encontrado"
End If
si lo quieres mostrar en un textbox seria
TextBox1.Text = rBuscado.Value
Saludos...
Mauricio Baeza
[email protected]
Todo lo que no es dado es perdido
*==========================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
pretendo que te tomes un minuto para FINALIZARLA, si
hubiera satisfecho -en alguna medida- tu requerimiento.
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.
Dim rBuscado As Range
Dim strDato As String
strDato = "yo"
Set rBuscado = Range("A1:E10").Find(strDato)
If Not rBuscado Is Nothing Then
Label1.Caption = rBuscado.Value
Else
MsgBox "Dato NO encontrado"
End If
si lo quieres mostrar en un textbox seria
TextBox1.Text = rBuscado.Value
Saludos...
Mauricio Baeza
[email protected]
Todo lo que no es dado es perdido
*==========================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
pretendo que te tomes un minuto para FINALIZARLA, si
hubiera satisfecho -en alguna medida- tu requerimiento.
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.
