.find(what:="*")

Si te manda un error de ejecución, es mejor que lo manejes con un On Error
Goto, así lo manejas mediante etiquetas.

Lo que puedes hacer en lugar de esto es mi ciclo favorito que es algo mas o
menos así:

dim encontrado as boolean
encontrado=false
dim i as integer
i=1
while Sheets("BOM PROPUESTO").range("B" & i).formular1c1<>""
if valor_buscado=Sheets("BOM PROPUESTO").range("B" & i).formular1c1 then
Range("a38").Value = "Si no encuentra el valor que busco"
encontrado=true
end if
i=i+1
Wend
if encontrado=false then Range("a37").Value = "Si lo encontro"

Espero y te sirva.
Saludos.


"Manny_90" escribió en el mensaje de
noticias news:

Que tal.

Estoy intentando hacer una macro donde me busque un valor dentro de un
rango
y realizar una actividad si es que no encuentra ningun dato, hice mi
grabacion asi:

Sub Machin1()

Sheets("BOM").Select
Range("B5").Select
parte = ActiveCell.Value
Sheets("BOM PROPUESTO").Select
busca = Range("b:b").Find(What:=parte).Select
If busca Is Nothing Then
Range("a38").Value = "Si no encuentra el valor que busco"
Else
Range("a37").Value = "Si lo encontro"
End If
End Sub


El problema es que cuando no encuentra el valor ya no avanza...
Muchas gracias...