Formda TL ve Kr Toplamları

[KAZIMM]

Formda TL ve Kr Toplamlarında toplama yapamıyorum.
yardımcı olursanız sevinirim.
formu ekte gönderiyorum.

 

[ozgretmen]

Dosyayı inceler misiniz ?

 

[KAZIMM]

Tşk ederim ilgilendiğiniz için , bu toplamları TextBoxların Change() olayına yazdım olmuyor

 

[ozgretmen]

Aşağıdaki topla kodu formunuza ekleyin.Ve herbir textboxun change olayını aşağıdaki şekilde düzenleyin.İyi çalışmalar.

Private Sub TextBox50_Change()
topla
End Sub

Sub topla()
TextBox94.Value = Val(TextBox50) + Val(TextBox51) + Val(TextBox52) + Val(TextBox53) _
+ Val(TextBox54) + Val(TextBox55) + Val(TextBox56) + Val(TextBox57) + Val(TextBox58) _
+ Val(TextBox59) + Val(TextBox60)
TextBox92.Value = Val(TextBox17) + Val(TextBox18) + Val(TextBox19) + Val(TextBox20) _
+ Val(TextBox21) + Val(TextBox22) + Val(TextBox23) + Val(TextBox24) + Val(TextBox25) _
+ Val(TextBox26) + Val(TextBox27)
TextBox93.Value = Val(TextBox61) + Val(TextBox62) + Val(TextBox63) + Val(TextBox64) _
+ Val(TextBox65) + Val(TextBox66) + Val(TextBox67) + Val(TextBox68) + Val(TextBox69) _
+ Val(TextBox70) + Val(TextBox71)
TextBox91.Value = Val(TextBox28) + Val(TextBox29) + Val(TextBox30) + Val(TextBox31) _
+ Val(TextBox32) + Val(TextBox33) + Val(TextBox34) + Val(TextBox35) + Val(TextBox36) _
+ Val(TextBox37) + Val(TextBox38)
If TextBox93.Value >= 100 Then
a = WorksheetFunction.RoundDown(Val(TextBox93) / 100, 0)
b = (Val(TextBox93) / 100) - a
TextBox94.Value = Val(TextBox94) + a
TextBox93.Value = b * 100
End If
If TextBox91.Value >= 100 Then
a = WorksheetFunction.RoundDown(Val(TextBox91) / 100, 0)
b = (Val(TextBox91) / 100) - a
TextBox92.Value = Val(TextBox92) + a
TextBox91.Value = b * 100
End If
End Sub

 

[KAZIMM]

Allah Razı Olsun , 3 günden beri araştırma yapıyordum bir türlü çözememiştim tekrar teşekür ederim.

 

[ozgretmen]

Allah Razı Olsun , 3 günden beri araştırma yapıyordum bir türlü çözememiştim tekrar teşekür ederim.

Allah sizden de razı olsun.Yardımcı olabiliyorsak ne mutlu bize.İyi çalışmalar.