Mesaj Box'taki Cancel İptal Etmek

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki kod dosya açıkldığında ekrana geliyor ve tarih soruyor. Benim istediğim tarih yazmadan mesaj box'un kaybolmaması. Ancak Cancel tuşuna basınca mesaj box kayboluyor. Bu mesajı nasıl revize etmek lazım ?

Sub TARIH()
Sub auto_open()
ver = InputBox("Liste tarihini giriniz")
Sheets("RAPOR").Range("F1") = ver
End Sub

 

[hassan26]

Selam
Arkadaşım MsgBox'mı Inputbox'mı yani başlığamı yoksa sorunamı cevap arıyorsun. Çünkü ikisi birbirine yakın nesneler ama aynı şey değiller Birisi (MsgBox) çıkış diğeri (InputBox) giriş

 

[baydeniro]

Sayın hassan26, cahilliğimi mazur görün lütfen. Ben ikisi arasında etki edecek bir fark olduğunu bilmiyorum. Bu durumda Inputbox oluyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Auto_Open()
    Dim Tarih As String
Başla:
    Tarih = InputBox("Liste tarihini giriniz.")
    If Tarih = "" Then GoTo Başla
    If Not IsDate(Tarih) Then GoTo Başla
    Sheets("RAPOR").Range("F1") = CDate(Tarih)
End Sub

 

[baydeniro]

Çok teşekkür ederim sayın Korhan Ayhan, sağlıcakla kalın

 

[baydeniro]

InpuBox Tarih Formatı Nasıl Ayarlanır

Merhaba arkadaşlar. InputBox girişini sadece tarih olacak şekilde şekillendirmek mümkün mü ?
Örneğin aşağıdaki kodda bulunan InputBox belli tarihler arasında olmasını istersek bunu nasıl kodlamak gerekir !!

Sub TARIH()
Sub auto_open()
ver = InputBox("Liste tarihini giriniz")
Sheets("RAPOR").Range("F1") = ver
End Sub

 

[Korhan Ayhan]

Selamlar,

Aynı konu ile ilgili farklı konu başlıkları açmayınız. Aynı konu altında sorularınıza devam edebilirsiniz. Aşağıdaki kodu denermisiniz. "01.01.2009" ile "31.01.2009" tarihleri arası girişi kabul etmektedir. Siz kendinize göre değiştiriniz.

Option Explicit
 
Sub Auto_Open()
    Dim Tarih As String
Başla:
    Tarih = InputBox("Liste tarihini giriniz.")
    If Tarih = "" Then GoTo Başla
    If Not IsDate(CDate(Tarih)) Then GoTo Başla
    If CDate(Tarih) < "01.01.2009" Or CDate(Tarih) > "31.12.2009" Then
    MsgBox "Lütfen geçerli bir tarih giriniz !", vbCritical
    GoTo Başla
    End If
    Sheets("RAPOR").Range("F1") = CDate(Tarih)
End Sub

Ayrıca mesajınıza ekledğiniz kodda iki adet Sub yordamı yazmışsınız. Bu şekilde kullanırsanız hata mesajı alırsınız. "Sub TARIH()" yazısını silerek kullanın.

 

[baydeniro]

Sayın Korhan Ayhan, yardımlarınız için çok teşekkür ederim.