- Katılım
- 26 Şubat 2008
- Mesajlar
- 25
- Excel Vers. ve Dili
- XP TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 18-07-2022
Merhaba arkadaşlar aşağıdaki koda aradığım değeri bulamadığında "Aranan Değer bulunamamıştır" diye mesaj vermesini istiyorum konuyla ilgili yardımcı olabilecek olan arkadaşlara şimdiden teşekkürler ederim.
Private Sub txtarama_Change()
Dim kontrol As Range
Set kontrol = Range("c13:c850").Find(txtarama.Value, lookat:=xlPart)
If Not kontrol Is Nothing Then
kontrol.Select
End If
End Sub
Private Sub txtarama_Change()
Dim kontrol As Range
Set kontrol = Range("c13:c850").Find(txtarama.Value, lookat:=xlPart)
If Not kontrol Is Nothing Then
kontrol.Select
End If
End Sub