Cancel butonu ve X ile çıkışta boş formun ekrana gelmesi

[Hasangencel]

Aşağıdaki kod ile arama yapmak istiyorum. Inputboxa veri girdiğimde sıkıntı yok. Ama Inputboxa veri girmeden CANCEL veya X ile çıkmak istediğimde ekrana boş formu getiriyor. Bunun gelmemesini nasıl sağlarız.

Sub Arama()

 On Error GoTo bitir
 
Dim aranan, sil_satir As Variant
 
    aranan = InputBox("Lütfen Arayacağınız Veriyi Giriniz..!", "ARAMA İŞLEMİ")
        
Sheets("Reddiyat").Range("C:R").Find(aranan).Select

sil_satir = ActiveCell.Row
 
    UserForm1.tb_islemno.value = Sheets("Reddiyat").Cells(sil_satir, 3)
    UserForm1.tb_efttarihi.value = Sheets("Reddiyat").Cells(sil_satir, 4)
    UserForm1.tb_tahstar.value = Sheets("Reddiyat").Cells(sil_satir, 5)
    UserForm1.tb_geltutar.value = Sheets("Reddiyat").Cells(sil_satir, 6)
    UserForm1.tb_kultutar.value = Sheets("Reddiyat").Cells(sil_satir, 7)
    UserForm1.tb_arttutar.value = Sheets("Reddiyat").Cells(sil_satir, 8)
    UserForm1.cb_icrad.value = Sheets("Reddiyat").Cells(sil_satir, 9)
    UserForm1.cb_dosyayili.value = Sheets("Reddiyat").Cells(sil_satir, 10)
    UserForm1.tb_dosyano.value = Sheets("Reddiyat").Cells(sil_satir, 11)
    UserForm1.tb_aboneno.value = Sheets("Reddiyat").Cells(sil_satir, 12)
    UserForm1.tb_adisoyadi.value = Sheets("Reddiyat").Cells(sil_satir, 13)
    UserForm1.cb_avukat.value = Sheets("Reddiyat").Cells(sil_satir, 14)
    UserForm1.cb_personel.value = Sheets("Reddiyat").Cells(sil_satir, 15)
    UserForm1.cb_isdurumu.value = Sheets("Reddiyat").Cells(sil_satir, 16)
    
    UserForm1.tb_islemno.Enabled = False
    UserForm1.tb_efttarihi.Enabled = False
    UserForm1.tb_tahstar.Enabled = False
    UserForm1.tb_geltutar.Enabled = False
    UserForm1.tb_kultutar.Enabled = False
    UserForm1.tb_arttutar.Enabled = False
    UserForm1.cb_icrad.Enabled = False
    UserForm1.cb_dosyayili.Enabled = False
    UserForm1.tb_dosyano.Enabled = False
    UserForm1.tb_aboneno.Enabled = False
    UserForm1.tb_adisoyadi.Enabled = False
    UserForm1.cb_avukat.Enabled = False
    UserForm1.cb_personel.Enabled = False
    UserForm1.cb_isdurumu.Enabled = False
    

UserForm1.Kaydet.Visible = False
UserForm1.GuncelleOnay.Visible = False
UserForm1.Show
 Exit Sub
bitir:      MsgBox " Aranan Kayıt Bulunamadı..!", , " HATA "

Application.EnableEvents = True
    On Error GoTo 0
    
End If
End Sub

 

[Muzaffer Ali]

Merhaba.

aranan = InputBox("Lütfen Arayacağınız Veriyi Giriniz..!", "ARAMA İŞLEMİ")

Satırınını altına

if aranan = "" then exit sub

satırını ekleyin.

 

[Hasangencel]

çok teşekkür ederim. Çalıştığım form işyerinde olduğu için deneyemedim. Yarın denerim inşallah. Sağolun