YTL

[hakanbolat]

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..

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz.