inputbox Yardım

[fdisk]

tarih1 = InputBox(" Veri Aralığı Başlangıç Tarihi Giriniz ;", "tarih1", Date)
If tarih1 = "" Or tarih1 = False Then Exit Sub

tarih2 = InputBox(" Veri Aralığı BİTİŞ Tarihi Giriniz ;", "tarih2", Date)
If tarih2 = "" Or tarih2 = False Then Exit Sub

Arkadaşlar ben ekran girişinde tarih1 girdikten sonra enter basıyorum ve tarih2 ekranı çıkıyor
bunların ikisini aynı ekranda çıkmasını nasıl yapabilirim

1. tarihi giriniz
2. tarihi giriniz
bunun gibi aynı menüde olsun

Teşekkürler

 

[Levent Menteşoğlu]

Inputbox ile yapamazsınız userformdan iki tarihinde girileceği bir arayüz hazırlayabilirsiniz.

 

[fdisk]

Inputbox ile yapamazsınız userformdan iki tarihinde girileceği bir arayüz hazırlayabilirsiniz.

Teşekkürler

 

[marimar]

merhaba arkadaşlar inputbox'ta cansel tuşunu nasıl kontrol edebilirim.
teşekkürler

 

[veyselemre]

Sayın Marimar,

Msgbox taki gibi bir uygulama yapılamıyor bildiğim kadarıyla. Aşağıdaki gibi bir kod işinizi görür mü?

Sub DENE()
sor = InputBox("Hangi  tuş", "Title", "Default atanan değer")
If sor = "" Then MsgBox "Boş geçildi veya Cancel tuşuna basıldı"
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KONTROL()
    X = Application.InputBox("MERHABA !")
    If X = False Then
    MsgBox "İPTAL TUŞUNA BASTINIZ !", vbInformation
    Else
    MsgBox "TAMAM TUŞUNA BASTINIZ !", vbInformation
    End If
End Sub