Mesaj kutusu ekleyemedim hata veriyor

[KAPLAN381]

Private Sub Txgun_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call izin_donus
If Txgun = "" Then
Exit Sub
End If
If IsDate(Txgun.Value) = False Then
MsgBox "Lütfen İzin Günü Giriniz!"
Cancel = True
Txgun = ""
End Sub

YARDIMCI OLURSANIZ SEVİNİRİM MESAJ HATA VERİYOR

 

[Korhan Ayhan]

Sorunuzdan ne anlamalıyız?

 

[KAPLAN381]

Korhan bey merhaba
MsgBox "Lütfen İzin Günü Giriniz!"
diye uyarı eklemek istiyorum fakat beceremedim.
yıllık izin girildiği bir userform yaptım buradaki userforma izin gün sayısı girilmediği zaman uyarı versin istiyorum.

 

[Korhan Ayhan]

Aşağıdaki satırları silip deneyiniz.

If Txgun = "" Then
Exit Sub
End If

 

[hımmmmmmmm]

Private Sub Txgun_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Call izin_donus

'If Txgun = "" Then
'    Exit Sub
'End If

If IsDate(Txgun.Value) = False Then
    MsgBox "Lütfen İzin Günü Giriniz!"
    Cancel = True
    Txgun = ""
End If
End Sub

bunu dene...

( Call izin_donus ve kotların exit e neden yazıldığını anlamadım.. )