Hola, que tal, soy nuevo en el foro, y nuevo en la programación en excel, mirando el código aquí he aprendido bastante, pero no he logrado encontrar o manejar este pequeño problema que tengo. (Realmente no sé como manejarlo).

Tengo esta macro que busca el valor numérico que se encuentra en un TextBox dentro de la columna A, y luego lo selecciona, esta rutina se ejecuta en el AfterUpdate y de ahí lo que hace es seleccionar la celda encontrada(el código lo encontré por alguno de los temas aquí). Pero, lo que no sé como manejar es que si no encuentra el valor correspondiente me mande un msgbox y de ahí devuelva el focus a esa misma caja. Ahora mismo al ejecutarla y buscar un valor que pase el valor final, se rompe todo.

'Caja de texto número de cliente después de teclear y dar enter

Private Sub numcliente_AfterUpdate()

    Cells.Find(What:=numcliente.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _

        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

Call obtenerdatos


'Llevamos el cursor al número de cliente de nuevo.

numcliente.SetFocus

End Sub



Sub obtenerdatos()

numcliente.Value = ActiveCell

cliente.Value = ActiveCell.Offset(0, 1).Value        'Columna B

direccion1.Value = ActiveCell.Offset(0, 2).Value   'Columna C

direccion2.Value = ActiveCell.Offset(0, 4).Value   'Columna E


[/CODE]

Agradecería alguna ayuda o algún ejemplo.

Buen día.

Hola:

Prueba con esto:

Private Sub numcliente_AfterUpdate()

On Error GoTo NotFound



 Cells.Find(What:=numcliente.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _

        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

Call obtenerdatos

'Llevamos el cursor al número de cliente de nuevo.

Exit Sub



NotFound:

   MsgBox "No encontrado"

   numcliente.SetFocus

   Exit Sub



End Sub



[/CODE]

Muchas Gracias! Me ha servido a la perfección.

Muy buen día