Error en Buscar

[marianoyana]

Tengo un formulario para buscar unos datos en el interior de una hoja de calculo, y si encuentra el valor no pasa nada me lo encuentra, pero si ingreso un dato que no se encuentra en la hoja me da...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

proba esto
Private Sub CommandButton1_Click()
Set rngfound = Range("A2:A7").Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[marianoyana]

Me da un error, no funcionando en ninguno de los casos, ni encontrandose el dato

 

[galileogali]

Private Sub CommandButton1_Click()
Dim rng As Range

Set rng = Range("A1:A7").Find(What:=TextBox1, After:=Range("A1"), LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[marianoyana]

Muchas gracias, es lo que queria