Textboxlarda toplama

[fatih34]

iyi çalışmalar üstadlar aşağıda örneği verdiğim çarpma makrosu ile işlem yaparak 100 adet textboxlara verileri atıyorum.
TextBox1 = Format(CDbl(TextBox2) * CDbl(TextBox3) , "#,##0.00")

bu makro ile yaptığım işlem sonucu 100 adet textbox sa gelen verilerin toplamını nasıl alabilirim yukarıdaki formulü uygularsam 100 tane dana makro yazmam gerekecek bu konuda bir yardım örnek dosyamı ekte gönderiyorum üstadlar bir inceleyip yol gösterirseniz sevinirim

 

[Orion1]

VBE'de properties'te topanacak olan textboxların tag özelliklerine t (küçük t) yazın.
Sonrada aşağıdaki kodu çalıştırın.
Başka yöntemlerde olur elbet.Ama sizinkine en uyan kod budur.

Dim txt As Control, toplam As Double
For Each txt In Me.Controls
    If TypeName(txt) = "TextBox" Then
        If txt.Tag = "t" Then
            If IsNumeric(txt.Text) Then
                toplam = toplam + CDbl(txt.Text)
            End If
        End If
    End If
Next
MsgBox "TOPLAM : " & Format(toplam, "#,##0.00") & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

 

[fatih34]

üstadım ilginize ve emeğinize sağlık teşekkür ederim.vermiş olduğunuz kodu benim kodun devamına yazayım yoksa toplam alacğım textbox sa mı yazayım

 

[Orion1]

üstadım ilginize ve emeğinize sağlık teşekkür ederim.vermiş olduğunuz kodu benim kodun devamına yazayım yoksa toplam alacğım textbox sa mı yazayım

Onu bilemem.
İstediğiniz yere yazın.
ben kodu verdim.

 

[fatih34]

teşekkür ederim devamın ayzdım çalıştırmadı,toplam alacağım textboxsında içine yazdım her hangi bir sonuç alamadım acemi olunca üstadım