Sum of numbers in a list box

[mmn1000]

Hello
I have a list box inside a user form and I want to display the total amount in the list box in a text box or label
For this I used the following code

Private Sub sum_subjects()
Dim total_v As Double
    For i = 0 To ListBox1.ListCount - 1
        total_v = total_v + Val(ListBox1.Column(5, i))
        geo_v = geo_v + Val(ListBox1.Column(6, i))
    Next
        sum_total.Caption = total_v
        sum_geo.Caption = geo_v
End Sub

The problem is that when I type in the search form, it displays the total. How do I modify the code to display the search total (limited filtered)?

 

[mmn1000]

It looks like it is working for you. If you wanted to make a change so that when you press enter in the Title Textbox the form updated rather than each time the Title textbox changes do this:


Replace this

Private Sub TextBox8_Change()

    If ComboBox1.Text <> Empty Then Call serchTel
    If TextBox8.Text = Empty Then Call addlist
    sum_subjects
End Sub

With this

Private Sub TextBox8_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then
    If ComboBox1.Text <> Empty Then Call serchTel
    If TextBox8.Text = Empty Then Call addlist
    sum_subjects
  End If
End Sub

Thank you for your help, my dear friend and brother Jeffrey Mahoney

Meysam Moghadamnia