Sıralı TextBoxların Toplatılması

[oerbas]

Herkese kolay gelsin;
Aşağıdaki kodu daha kısa olarak nasıl yazablirirz

Textfazlamesai = Format(CDbl(Ayın_biri) + CDbl(Ayın_ikisi) + CDbl(Ayın_üçü) + CDbl(Ayın_dördü) + CDbl(Ayın_beşi) + CDbl(Ayın_altısı) + CDbl(Ayın_yedisi) + CDbl(Ayın_sekizi), "#,##0.00")

Bu kod bu şekilde Ayın_otozbiri'ne kadar olacak ama aynı satırda çok uzun oluyor. Kısa bir döngü olabilirmi? Herkese kolay gelsin

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki yapıyı kullanabilirsiniz. Ben kodu formun "Initialize" olayına yazdım. Siz farklı bir olaya yazabilirsiniz.

Private Sub UserForm_Initialize()
    For Each Nesne In Me.Controls
        If TypeName(Nesne) = "TextBox" Then
            If InStr(1, Nesne.Name, "Ayın_") > 0 Then
                If IsNumeric(Nesne.Value) Then
                    Toplam = Toplam + CDbl(Nesne.Value)
                End If
            End If
        End If
    Next
    Textfazlamesai = Format(Toplam, "#,##0.00")
End Sub

 

[oerbas]

İyi akşamlar;
Haluk bey yazdığınız kod çok işime yaradı iyiki varsınız. Teşekkür mesajını geç yazdığım için kusura bakmayın çünkü işyerindeki bilgisayarlarımız filitreleniyor form üzerinden geri dönüş yapamıyorum.