Çözüldü Listbox seçimine göre textboxlarda toplama

[sirkülasyon]

Private Sub ListBox1_Click()
Private Sub ListBox1_Click()
On Error Resume Next
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
TextBox1 = ListBox1.Column(0, i)
satırno = Sheets("veri").[b2:b65536].Find(TextBox1.Value).Row
TextBox2 = Sheets("veri").Cells(satırno, 3).Value
TextBox3 = Sheets("veri").Cells(satırno, 4).Value
TextBox4 = Sheets("veri").Cells(satırno, 5).Value
End If
Next i
Exit Sub
End Sub

Listboxta yapılan seçime göre sayfadaki hücreden Textbox2, Textbox3, Textbox4' e veri geliyor.
İsteğim:
1 - Textbox5 de veri gelir gelmez Textbox2, Textbox3, Textbox4'de ki rakamları toplaması
2 - Textbox2, Textbox3, Textbox4'de rakamlarda değişiklik yapıldığında da Textbox5 de toplamın değişmesi

Rica etsem koda bu eklemeyi yapabilir misiniz?
Teşekkür eder saygılarımı sunarım

 

[Muzaffer Ali]

Sayın @Sirkulasyon, çok merak ettiğim için sormak istiyorum.
2012 yılından beri siteye üyesiniz, mesaj sayınıza bakınca da çok aktif olduğunuzu görüyorum.
Ancak sorduğunuz soru çok başlangıç seviyesinde. Bu nasıl oluyor anlayamadım doğrusu.
Kanımca forumu öğrenme odaklı kullanırsanız sizin için daha verimli olur.

Aşağıdaki kodlar ile istediğiniz bu işlemi yapabilirsiniz.
Selametle.

Sub Topla()
    Dim t2 As Long, t3 As Long, t4 As Long
    If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then Exit Sub
    If Not IsNumeric(TextBox2.Text) Then
        MsgBox "'TextBox1' deki değer rakam değil. Toplama yapılamıyor."
        Exit Sub
    ElseIf Not IsNumeric(TextBox3.Text) Then
        MsgBox "'TextBox2' deki değer rakam değil. Toplama yapılamıyor."
        Exit Sub
    ElseIf Not IsNumeric(TextBox4.Text) Then
        MsgBox "'TextBox3' deki değer rakam değil. Toplama yapılamıyor."
        Exit Sub
    End If
    t2 = TextBox2.Text
    t3 = TextBox3.Text
    t4 = TextBox4.Text
    TextBox5.Text = t2 + t3 + t4
End Sub
Private Sub TextBox2_Change()
    Topla
End Sub

Private Sub TextBox3_Change()
    Topla
End Sub

Private Sub TextBox4_Change()
    Topla
End Sub

Private Sub ListBox1_Click()
    Dim i As Integer
    Dim SatirNo As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            TextBox1 = ListBox1.Column(0, i)
            SatirNo = Sheets("veri").[b2:b65536].Find(TextBox1.Value).Row
            TextBox2 = Sheets("veri").Cells(SatirNo, 3).Value
            TextBox3 = Sheets("veri").Cells(SatirNo, 4).Value
            TextBox4 = Sheets("veri").Cells(SatirNo, 5).Value
            Exit For
        End If
    Next i
End Sub

 

[hamitcan]

'Bir Module içine ekleyin
Public Function Topla()
    With UserForm1
     Topla = Val(.TextBox1) + Val(.TextBox2) + Val(.TextBox3)
    End With
End Function

'Bir Userform içine ekleyin
Private Sub TextBox1_Change()
TextBox5 = Topla
End Sub
Private Sub TextBox2_Change()
TextBox5 = Topla
End Sub
Private Sub TextBox3_Change()
TextBox5 = Topla
End Sub
Private Sub ListBox1_Click()
    TextBox5 = Topla
End Sub

 

[sirkülasyon]

Yardımlarınız için teşekkür ederim.
Sağ olun