kayıt bulunamadı mesajı

[mehmetakifturk]

ExcelForum u alt üst etmeme rağmen sorgu neticesinde "kayıt bulunamadı" mesajı nasıl verebilceğimiz konusunda bir bilgi bulamadım.
bana yardımcı olabilirmisiniz..

 

[ileriexcel]

Private Sub CommandButton1_Click()
For Each bul In Range("A1:F100")
If bul.Value = TextBox1.Value Then
bul.Select
Exit Sub
End If
Next
MsgBox "aranılan bulunamadı."
End Sub

 

[mehmetakifturk]

yanıtınız için teşekkür ederim,
ancak konu access ile ilgili. verilen cevap excel ile geçeril.
bu kodu access de uyarlayıp deneyeceğim.
başka önerisi olan varmı?