Texbox mantıksız Tarih Girişi Kısıtlama (64bit excel için)

[toprak2349]

Merhabalar. Texbox a sadece tarih girişini sağlamak için keyascii kodları ile sadece tarih girilmesini sağladım. Lakin bilgisayar 64bit excel olduğu için datetimepicker kullanamıyorum, yani son kullanıcı userform u kullanırken tarih texbox a alakasız bir tarih yazabiliyor. Örnek: 48.63.2019 veya 31.11.2019 vb. Mantıksız tarih girişini nasıl engelleyebilirim.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile kontrol sağlayabilirsiniz.

Sub Test()
    With TextBox1
        If Not IsDate(.Text) Then
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
            MsgBox "Lütfen geçerli bir tarih giriniz."
            Exit Sub
        End If
    End With
End Sub

 

[toprak2349]

Teşekkürler hocam...

Merhaba.

Aşağıdaki kodlar ile kontrol sağlayabilirsiniz.

Sub Test()
    With TextBox1
        If Not IsDate(.Text) Then
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
            MsgBox "Lütfen geçerli bir tarih giriniz."
            Exit Sub
        End If
    End With
End Sub