InputBox

[parsley2]

açıklama = "Konu Başlığını Giriniz"
geçerli = "yeni konu adı "
k = InputBox(açıklama, başlık, geçerli)

(((Burada inputbox kutusunda CANCEL seçimi yaptığında aşağıdaki kodları yapmasın istiyorum.)) inputbox un Msgbox gibi bu ok, cancel butonlarının sayı dönüşü var mı??

If k = "" Then
Exit Sub
Else
End If
Sorunu yukarıdaki eğer ile çözdüm. Belki birilerinin de işine yarar.))

MsgBox "yeni konu girişi yapıldı"

 

[Korhan Ayhan]

Çözümü kendinizin bulması sevindirici bir durum.

Alternatif olarak aşağıdaki gibi de kullanabilirsiniz.

Sub Test()
    açıklama = "Konu Başlığını Giriniz"
    geçerli = "yeni konu adı "
    k = Application.InputBox(açıklama, başlık, geçerli)
    If k = False Or k = "" Then
        Exit Sub
    Else
        MsgBox "yeni konu girişi yapıldı"
    End If
End Sub

 

[parsley2]

Çok teşekkür ederim Korhan bey, bu daha güzelmiş.