- Katılım
- 4 Aralık 2004
- Mesajlar
- 129
Merhabalar, Bir Türlü YTL Formatına Uyduramadım çalışmamı, TextBox ve excele nasıl kodlamam lazım..
Private Sub gelen_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(gelen) = True Then
gelen = Format(gelen, "###,###.00")
Exit Sub
End If
MsgBox "Lütfen Tutarı Sayı Olarak Giriniz...", , "HATA..."
gelen.Value = ""
End Sub
Excelde ya sondaki sıfırı siliyor yada toplamıyor..
Private Sub gelen_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(gelen) = True Then
gelen = Format(gelen, "###,###.00")
Exit Sub
End If
MsgBox "Lütfen Tutarı Sayı Olarak Giriniz...", , "HATA..."
gelen.Value = ""
End Sub
Excelde ya sondaki sıfırı siliyor yada toplamıyor..