"aradım ama bulamadım" komutu

[Haydar Ali Ã?züm]

Bulursa çalışıyor, ama bulamazsa beni uyarsın istiyorum. Yapamadım.

Kodlar aşağıda

Sub BUL()

p = ActiveCell.Row


r = Worksheets("sayfa3").Columns(4).Find(Sheets("sayfa1").Cells(p, 2)).Row



Sheets("sayfa3").Select

Rows(r).Select

End Sub

Teşekkürler

 

[isakarakus]

Þunu denermisin?

[vb:1:f8a653a7d6]Sub BUL()
on error resume next
r=0

p = ActiveCell.Row
r = Worksheets("sayfa3").Columns(4).Find(Sheets("sayfa1").Cells(p, 2)).Row
if r=0 then Msgbox "Aradım ama bulamadım." :exit sub

Sheets("sayfa3").Select
Rows(r).Select

End Sub[/vb:1:f8a653a7d6]

 

[Haydar Ali Ã?züm]

Çalıştı...

 

[Haydar Ali Ã?züm]

hallettim üstad.
Teşekkürler