Bulunmazsa

[mnz]

ara= (B1 den B10 a kadar değerleri alıyor)
bulundu=sheets("Sayfa1").range("A1:A1000").find(ara).row

For döngüsü yapmadan bulunan değerin satır numarasını alıyorum.
ara daki değer bulunamadığı zaman hata veriyor.

 

[kulomer46]

Aşağıdaki kod mantığına bir bak, işine yarayabilir..

Sub aktar()
On Error Resume Next
ara = 5
bulundu = Sheets("Sayfa1").Range("A1:A1000").Find(ara).Row
If bulundu = Empty Then
MsgBox "yok"
Else
MsgBox bulundu
End If
End Sub