Excel: Buscar un dato y seleccionarlo

[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.