find hata

[berdal]

d = Selection.Find(c, LookIn:=xlValues).Address' komut satırıyla bir sütunda arama yaptığımda bulunamayan bir değer verdiğinde "runtime error 91 object variable or with block variable not set" hatası veriyor. Bu hata olduğunda hata uyarısı vermeden kendi istediğim bir işlemi yapmasını nasıl sağlayabilirim on error resume next'i kullanamıyorum çünkü başka bir işlem yapmam gerekli. en üstte on error goto islem1 komuta satırını kullanıyorum yine de hata veriyor. Yardımcı olursanız memnun olurum.İyi çalışmalar

 

[Recep İpek]

Sanırım aşağıdaki şekilde sorununuz çözülecektir.

Sub Button1_Click()
c = [b1]
[b]On Error Resume Next [/b] [color=green]' Kodu buraya yazınız[/color]
Selection.Find(c, LookIn:=xlValues).Address
.......
[color=red]Kendi kodlarınız[/color]
.......
End Sub

 

[berdal]

Sayın Ripek ilgin için teşekkür ederim. "on error resume next" ve "if err.number=91 then goto hata" komutalarının ikisini kullanarak sorunum çözüldü. iyi çalışmalar.