TextBoxa şartlı tarih girişi

[kelkitli]

Değerli Dostlar Selamlar,
UserForm1 üzerinde TextBox1 e tarih girmem gerekiyor.
Şöyle olmalı:
TextBox1 üzerinde takvim denetimi ile veri girişi açık olmalı, ancak yazarak giriş kapalı olmalı,
Buton ile Sayfa1 C1 hücresinden veri aktarımı şarta bağlı olmalı.
Eğer C1 deki değer "01.01.2008" şeklindeyse veri girilmeli,
1940 şeklinde ise, "01.07.1940" (yani ayı, günü belli olmayan doğum tarihleri temmuz ayının 1 ine) olarak yazılmalı. Harici değerler girilmemeli, TextBox1 boş kalmalı, MsgBox a "Tarihi kontrol et" diye uyarmalı. Dosya ektedir.

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz...

 

[kelkitli]

Sayın Ayhan Ercan,
Teşekkür ederim. Hesaplama hatasız. Bir de mümkünse Takvim denetimi hücreye çift tıklayınca açılır olursa daha iyi olur.

 

[kelkitli]

İşlem Tamam.
Teşekkürler.

Dim ad As String
Private Sub Calendar1_Click()
TextBox1 = Format(Calendar1, "dd.mm.yyyy")
Calendar1.Visible = False
TextBox1.SetFocus
End Sub
Private Sub CommandButton1_Click()
If Len(Sayfa1.[c1].Value) <> 4 And IsDate(Sayfa1.[c1].Value) = False Then GoTo 10
If IsNumeric(Sayfa1.[c1].Value) = True Then
If Len(Sayfa1.[c1]) = 4 Then
TextBox1 = "01.07." & Sayfa1.[c1].Value
Else
TextBox1.Value = Format(Sayfa1.[c1].Value, "dd.mm.yyyy")
End If
Else
10 MsgBox "Girilen de&#287;er Tarih de&#287;il"
End If
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Visible = True
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
End Sub

Private Sub UserForm_Initialize()
Calendar1.Visible = False
TextBox1.Locked = True
End Sub