DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
On Error Resume Next
a = Round(TextBox3, 2)
a = WorksheetFunction.Substitute(a, ",", ".")
b = Round(TextBox4, 2)
b = WorksheetFunction.Substitute(b, ",", ".")
c = Round(TextBox5, 2)
c = WorksheetFunction.Substitute(c, ",", ".")
y = Round(TextBox2, 2)
y = WorksheetFunction.Substitute(y, ",", ".")
z = (Val(a) + Val(b) + Val(c)) - Val(y)
z = WorksheetFunction.Substitute(z, ".", ",")
TextBox1 = z
Sn klass37 textboxlardan biri boş olduğu zaman hata veriyorclass37' Alıntı:MerhabaKod:TextBox1 = Format(CCur(TextBox2.Value) + CCur(TextBox3.Value), "#,##0.00")
Sn xxrt çalıştırdım çok teşekkürler.İyi çalımalarxxrt' Alıntı:Sayın Raider Buna ait yazdığı bir kodu size uyarladım..
Kod:On Error Resume Next a = Round(TextBox3, 2) a = WorksheetFunction.Substitute(a, ",", ".") b = Round(TextBox4, 2) b = WorksheetFunction.Substitute(b, ",", ".") c = Round(TextBox5, 2) c = WorksheetFunction.Substitute(c, ",", ".") y = Round(TextBox2, 2) y = WorksheetFunction.Substitute(y, ",", ".") z = (Val(a) + Val(b) + Val(c)) - Val(y) z = WorksheetFunction.Substitute(z, ".", ",") TextBox1 = z