textboxları toplatmak??

[udentr2002]

Merhaba arkadaşlar ekli dosyadada anlatmaya çalıştım textboxlardakli değerlri toplayıp bir textboxa yazan ve virgülden sonra 3 haneye kadar gösteren bir kodu nasıl yazabilirim şimdiden ilgilenen tüm arkadaşlara teşekkür ederim

 

[Recep İpek]

Aşağıdaki linkte son örnek dosyayı inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=28750

 

[Korhan Ayhan]

Selamlar,

Formunuzun kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. Umaım faydası olur.

Private Sub TextBox3_Change()
    Call TOPLA
End Sub

Private Sub TextBox7_Change()
    Call TOPLA
End Sub

Private Sub TextBox11_Change()
    Call TOPLA
End Sub

Private Sub TextBox15_Change()
    Call TOPLA
End Sub

Private Sub TextBox19_Change()
    Call TOPLA
End Sub

Private Sub TextBox23_Change()
    Call TOPLA
End Sub

Private Sub TextBox27_Change()
    Call TOPLA
End Sub

Private Sub TextBox31_Change()
    Call TOPLA
End Sub

Private Sub TextBox35_Change()
    Call TOPLA
End Sub

Private Sub TextBox39_Change()
    Call TOPLA
End Sub

Private Sub TextBox43_Change()
    Call TOPLA
End Sub

Private Sub TextBox47_Change()
    Call TOPLA
End Sub

Sub TOPLA()
    For X = 3 To 47 Step 4
    If Me.Controls("TextBox" & X) <> "" Then Sonuç = Sonuç + CDbl(Me.Controls("TextBox" & X))
    Next
    TextBox49 = Format(Round(Sonuç, 2), "#,##0.00")
End Sub

 

[udentr2002]

hocam

İlgilendiğiniz için teşekkür ederim yanlız benim böyle 30 dan fazla toplatmam gereken textboxlar var bunu bir döngü ile yapabilmemiz mümkünmü acaba??

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeyi yaptım. İncelermisiniz.

Dosyada daha önce Sn. leventm beyin forumda yayınladığı Class Modules uygulaması yapılmıştır.

 

[udentr2002]

Hocam

ellerine sağlık tam istediğim gibi olmuş Allah razı olsun