DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
yav olay güzel ancak bi sayı yazıp silince hata weriyor o hatayı nasıl düzeltebiliriz???
:dusun:
Sayın Melanqolia
Private Sub CommandButton1_Click()
On Error Resume Next
Dim t1 As Double
Dim t2 As Double
Dim t3 As Double
t1 = TextBox3.Value
t2 = TextBox6.Value
t3 = TextBox9.Value
TextBox10 = t1 + t2 + t3
'TextBox10.Value = Format(Val(TextBox3) + Val(TextBox6) + Val(TextBox9), "#,##0.00")
End Sub