TextBoxların Toplamını Almak

[alpay1]

Herkeze İyi Çalışmalar,
Aşağıdaki kodla iki TextBox' u toplatıyorum.

Beş tane TextBox'ta toplam almak istersek kodu nasıl değiştirmemiz gerekir.
Ayrıca beş TextBox'un tamamında sayı olmayabilir.Boş olan TextBox'u görmeyecek.
Yardımcı olursanız sevinirim.
Teşekkürler.

If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
    TextBox7 = CCur(TextBox1) + CCur(TextBox2)
    End If

 

[cako]

Dim Toplam As Integer
Toplam = 0
If IsNumeric(TextBox1) Then
    If TextBox1.Value > 0 Then
    Toplam = TextBox1
    End If
End If
If IsNumeric(TextBox2) Then
    If TextBox2.Value > 0 Then
    Toplam = Toplam + TextBox2.Value
    End If
End If
If IsNumeric(TextBox3) Then
    If TextBox3.Value > 0 Then
    Toplam = Toplam + TextBox3.Value
    End If
End If
If IsNumeric(TextBox4) Then
    If TextBox4.Value > 0 Then
    Toplam = Toplam + TextBox4.Value
    End If
End If
If IsNumeric(TextBox5) Then
    If TextBox5.Value > 0 Then
    Toplam = Toplam + TextBox5.Value
    End If
End If
TextBox6.Value = Toplam 'Eğer toplamı başka bir textboxta görecekseniz
MsgBox Toplam, vbInformation 'Eğer toplamı mesajboxta görecekseniz
Label1.Caption = Toplam 'Eğer toplamı bir labelda görecekseniz

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi deneyin.
[vb:1:2c8a764785]For a = 1 To 5
If IsNumeric(Controls("textbox" & a)) = True Then
If TextBox7 = "" Then TextBox7 = 0
TextBox7 = Controls("textbox" & a) * 1 + TextBox7 * 1
End If
Next[/vb:1:2c8a764785]

 

[alpay1]

Sayın levetm,
Yardımınız için çok teşekkürler.

 

[cako]

Ehh galiba ben boşa kürek çekmişim. :kafa: :kafa:

 

[alpay1]

Sayın cako,
Çok özür dilerim kodları görünce aceleyle denemek için excel programını açtım ve kodları deneyerek çalıştığını görünce kodun ikisinide sayın leventm bey gönderdi diye bakmadan cevap yazdım.Halbuki ilk sizin kodunuzu denedim ve çalışınca hemen cevap yazdım.Kusura bakmayın.
Kodlar için çok teşekkürler.