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

Y otra alternativa, pero sin movimiento por el archivo hasta que no
sea necesario, es:


Sub Machin1()
parte = Sheets("BOM").[B5].Value
If Sheets("BOM PROPUESTO").[B:B].Find(What:=parte, LookAt:=xlWhole) Is
Nothing Then
MsgBox "No encuentra el valor"
Else
MsgBox "Lo encontró"
End If
End Sub



Espero que te sea útil.
Saludos, Cacho.

Exelente...
Mil gracias




"" wrote:

Y otra alternativa, pero sin movimiento por el archivo hasta que no
sea necesario, es:


Sub Machin1()
parte = Sheets("BOM").[B5].Value
If Sheets("BOM PROPUESTO").[B:B].Find(What:=parte, LookAt:=xlWhole) Is
Nothing Then
MsgBox "No encuentra el valor"
Else
MsgBox "Lo encontró"
End If
End Sub



Espero que te sea útil.
Saludos, Cacho.