TextBox ta Tarih Formatı

[Mustafa MUTLU]

Şu Kodu buldum siteden..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> "" And IsDate(TextBox1.Value) = False Then
MsgBox ("hatalı veri girişi" & vbCrLf & TextBox1)
TextBox1.Value = ""
Else
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End If
End Sub


Ancak TextBox1 e ne yazsam kabul ediyor yazdığım gibi kaydediyor.

Ben Tarih ayracı olarak yalnızca
Nokta (.) ile kayıt yapılmasına izin versin farklı giriş olduğunda uyarsın istiyorum.

Teşekkür Ederim....

 

[halit3]

Bu konu ile ilgili bir sürü çalışmalar var aşağıdaki linkde

http://www.excel.web.tr/search.php?searchid=1705383