User Form'da Tarih Denetimi

[baydeniro]

Merhaba arkadaşlar. User Form'da TextBox1 için girilecek veri kabulü için (tarih) aralık vermek gerekse, örneğin 01.01.2011 ile 31.12.2012 tarihleri arasında bir tarih olması için kod ne olmalıdır ?

 

[baydeniro]

Merhaba arkadaşlar. User Form'da TextBox1 için girilecek veri kabulü için (tarih) aralık vermek gerekse, örneğin 01.01.2011 ile 31.12.2012 tarihleri arasında bir tarih olması için kod ne olmalıdır ?

 

[baydeniro]

Arkadaşlar çözüm bulunmuştur. Sayın Orion1 in çözümü aşağıda. İlgilenenlere duyurulur :

http://www.excel.web.tr/f48/user-form-textbox-tarih-aralyoy-t110137/sayfa2.html

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
Dim ilk As Date, son As Date
ilk = DateValue("01.01.2011")
son = DateValue("31.12.2012")

If TextBox1.Value = "" Then
MsgBox " Lütfen tarih giriniz..", , ""
End If

If CDate(TextBox1.Value) < ilk Or CDate(TextBox1.Value) > son Then
MsgBox " Girilen tarih 01.01.2011 ile 31.12.2012 tarihleri arasında bir değer olmalıdır. ", , ""
Cancel = True
Exit Sub
End If
End Sub