Excel: Buscar un dato y seleccionarlo

[Pablus00]

Hola Colegas, tengo un codigo en excel, para buscar un numero de pedido que escribo en la Hoja1, y este codigo lo busca en la Hoja12:
si este está, selecciona dicha fila


El problema ocurre si el numero que escribo no coincide con los que hay me da error. Y si no escribo nada me da "verdadero" como resultado de busqueda?Necesito ayuda en el codigo para clasificar los errores y que lo mencione en el msgbox

Sub prueba()

Hoja12.Select
Application.ScreenUpdating = False



busca_envio = [D:D].Find(What:=Hoja1.Range("H53").Value).Activate

If busca_envio = True Then 'no se porq da valor verdadero cuando no tiene parametro de busqueda
MsgBox ("no esta")
Else
If busca_envio <> verdadero Then

Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
MsgBox ("encontrado")
End If
End If


Application.ScreenUpdating = True
End Sub

[David]

Prueba esto:

Código vb:

Dim busca_envio As Range
Set busca_envio = [D:D].Find(What:=Hoja1.Range("H53").Value)
If Not busca_envio Is Nothing Then
    busca_envio.Activate
    'Encontrado
Else
    'No encontrado
End If
 

Saludos.

[mrocf]

Hola! amigo: es un gusto saludarte...

Mira, tienes un par de "errorcillos" conceptuales. Observa lo siguiente:

Código PHP:

  Sub Prueba()
Dim Celda_envio As Range

Set Celda_envio = Hoja12.[d:d].Find(What:=Hoja1.[h53], LookAt:=xlWhole)
If Celda_envio Is Nothing Then MsgBox ("No está"): Exit Sub

Application.Goto Celda_envio.EntireRow
MsgBox ("Encontrado")

Set Celda_envio = Nothing
Application.ScreenUpdating = True
End Sub 
   

Nota que "Celda_envio" representa -ahora- una celda. De este modo el método Find es aplicado sin moverte de la hoja activa.

La comparación "If" contra "Nothing" es siempre cierta y efectiva.

Finalmente, el método Application.Goto (que equivale a presionar la tecla "F5" te moviliza desde la hoja activa hasta la fila que contiene el dato.

Espero te haya sido de utilidad.
Saludos, Cacho.

[mrocf]

¡¡¡Ups!!!
Veo que "nos cruzamos" con el amigo David... y coincidiendo en la idea (¡menos mal!).

[Pablus00]

Muchas gracias David y Mrocf, nuevamente me han sido de gran ayuda, los pondre en uso, saludos