Toplama Sorunu

[yavuz829]

Merhaba arkadaşlar ekli dosyamda TextBox12 den TextBox22 ye kadar olan rakamların toplamını TextBox23 de görünmesini istiyorum.
Bu konularda yardımcı olursanız sevinirim. Yardımlarınız için şimdiden teşekkürler.

 

[acar6783]

Merhaba
Basit bir
worksheetfunction.sum(textbox12,textbox13,....)
kodu ekleyebilirsin

 

[yavuz829]

Merhaba
Basit bir
worksheetfunction.sum(textbox12,textbox13,....)
kodu ekleyebilirsin

Hocam ben kodlardan fazla anlamiyorum eklediğim dosyaya uygularsanız sevinirim.

 

[acar6783]

Eğer dönüş olmazsa yarin bakayım inşallah. Notebook işyerinde bıraktım.
(Telefondan yazıyorum)

 

[vardar07]

Merhaba.Eski kodlarınızı biryerlere yedekleyip aşağıdaki kodları denermisiniz.

Private Sub Workbook_Open()
UserForm1.Show
Application.Caption = " Sayfa1"
Application.ActiveWindow.Caption = " Sayfa1"
Application.ActiveWindow.DisplayHorizontalScrollBar = True
End Sub
Private Sub CommandButton1_Click()
Application.Quit
   End Sub

Private Sub CommandButton2_Click()
    Dim TC As Control 'UserForm Temizle'
    For Each TC In Controls
        If TypeName(TC) = "TextBox" Or TypeName(TC) = "ComboBox" Then
            TC.Value = ""
        End If
    Next TC
    MsgBox "YENİ KAYIT İÇİN FORUM TEMİZLENMİŞTİR.", vbInformation
    Set TC = Nothing
      
End Sub

Private Sub TextBox2_Change()
deg11 = Replace(IIf(TextBox1 = "", 0, TextBox1), ".", ",")
deg12 = Replace(IIf(TextBox2 = "", 0, TextBox2), ".", ",")
TextBox3 = Format(Replace(Val(deg11) / (deg12 + 100) * Val(deg12), ".", ","), "#,##0.00")
End Sub


Private Sub TextBox3_Change()
deg1 = Replace(IIf(TextBox1 = "", 0, TextBox1), ".", ",")
deg2 = Replace(IIf(TextBox3 = "", 0, TextBox3), ".", ",")
TextBox4 = Format(Replace(Val(deg11) - Val(deg12), ".", ","), "#,##0.00")
End Sub

Private Sub TextBox4_Change()
deg1 = Replace(IIf(TextBox1 = "", 0, TextBox1), ".", ",")
TextBox5 = Format(Replace(Val(deg11), ".", ","), "#,##0.00")
End Sub

Private Sub TextBox7_Change()
deg1 = Replace(IIf(TextBox6 = "", 0, TextBox6), ".", ",")
deg2 = Replace(IIf(TextBox7 = "", 0, TextBox7), ".", ",")
TextBox8 = Format(Replace(Val(deg1) * Val(deg2), ".", ","), "#,##0.00")
End Sub

Private Sub TextBox10_Change()
deg1 = Replace(IIf(TextBox9 = "", 0, TextBox9), ".", ",")
deg2 = Replace(IIf(TextBox10 = "", 0, TextBox10), ".", ",")
If TextBox9 <> "" And TextBox10 <> "" Then
TextBox11 = Format(Replace(Val(deg1) / Val(deg2), ".", ","), "#,##0.00")
Else
TextBox11 = ""
End If
End Sub

Private Sub TextBox22_Change()

TextBox23 = Format(Val(TextBox12.Value) + Val(TextBox13.Value) + Val(TextBox14.Value) + Val(TextBox15.Value) + Val(TextBox16.Value) + Val(TextBox17.Value) + Val(TextBox18.Value) + Val(TextBox19.Value) + Val(TextBox20.Value) + Val(TextBox21.Value) + Val(TextBox22.Value), "#,##0.00")
End Sub

 

[yavuz829]

Çok teşekkürler hocam yazdığınız kodları uyguladım tam istediğim gibi olmuş. Ellerinize sağlık

 

[Korhan Ayhan]

Küçük bir hatırlatma;

Kod bölümünde ondalık sayılarla işlem yapmak istiyorsanız Val(deg1) yerine Cdbl(deg1) kullanmalısınız.

Çünkü VAL parametresi sayıların ondalık kısmını gözardı ederek hesaplama yapar.

 

[yavuz829]

Hocam toplama rakamlarında kuruşları virgül ile ayırdığımız zaman kuruşları toplamıyor. Nokta ile ayırdığımız zaman kuruşları topluyor. Virgüle göre format olursa iyi olur eğer olmuyorsa önemli değil nokta ile kuruş ayırımı yaparım.

 

[acar6783]

Kolay gelsin...
Ekteki örneği incelermsiniz..

 

[yavuz829]

Çok teşekkürler hocam ellerinize sağlık. Tam istediğim gibi olmuş.

 

[acar6783]

Rica ederim Hayırlı çalışmalar