User formda tarıh ve sayı hatası

[haso_excel]

Merhaba arkadaşlar,

Daha önce kulladığım bir user formu başka bir nakinede kullandığımda tarih ve rakamlarda problem veriyor.

Private Sub Txt_odemetutar_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Txt_odemetutar = CDbl(Txt_odemetutar)
'Txt_odemetutar = Format(Txt_odemetutar, "#,##0.00")
End Sub
Private Sub Txt_odemevade_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Txt_odemevade = FormatDateTime(Txt_odemevade, vbShortDate)
'Txt_odemevade = CDate(Txt_odemevade)
'Txt_odemevade = Format(Txt_odemevade, "dd/mm/yyyy")
End Sub

Private Sub Txt_odemortvade_Change()
'Txt_odemortvade = FormatDateTime(Txt_odemortvade, vbShortDate)
'Txt_odemortvade = CDate(Txt_odemortvade)
 Txt_odemortvade = Format(Txt_odemortvade, "dd/mm/yyyy")
End Sub

Kodlar yukarıda ne yaptıysam olmadı.Formu kopyalamak istedim ama 645.5 kb olduğu için ekleyemedim edemedim.

 

[haso_excel]

Private Sub Txt_ftortvade_Change()
Txt_ftortvade = FormatDateTime(Txt_ftortvade, vbShortDate)
End Sub

Private Sub UserForm_Initialize()
Txt_ftortvade.Value = WorksheetFunction.Sum(Range("f:f")) / WorksheetFunction.Sum(Range("e:e")) + WorksheetFunction.Min(Range("b:b"))
Txt_ftortvade = FormatDateTime(Txt_ftortvade, vbShortDate)

Txt_odemortvade.Value = WorksheetFunction.Sum(Range("o")) / WorksheetFunction.Sum(Range("n:n")) + WorksheetFunction.Min(Range("m:m"))
Txt_odemortvade = FormatDateTime(Txt_odemortvade, vbShortDate)

yapmama "Txt_ftortvade" rağmen yine hata veriyor.