İNPUTBOX KULLANIMI İLE İLGİLİ

[musaliha]

Private Sub ara1_Click()
aranan = InputBox("ÖĞRENCİ ADI GİRİNİZ", "ARAMA İŞLEMİ")
Range("B:B").Find(aranan).Select

End Sub

Bu kodlarla sayfamdaki aradağım satıra gdiyorum ama bulamaz ise hata veriyor. oysa bulamassa bulunamadı mesajı verse hata vermese .bunu sağlamak için nasıl kodlamam gerekir.

 

[Muzaffer Ali]

Merhaba.

Private Sub ara1_Click()
    Dim Aranan As String
    Dim Bulunan As Range
    Aranan = InputBox("ÖĞRENCİ ADI GİRİNİZ", "ARAMA İŞLEMİ")
    Set Bulunan = Range("B:B").Find(Aranan)
    If Bulunan Is Nothing Then
        MsgBox "Bulunamadı"
    Else
        Bulunan.Select
    End If
End Sub

 

[musaliha]

Çok teşekkür ederim.