Add Same Items In ListBox

Question

I have been searching for solutions on the internet for sometime but to no avail. I want to write a procedure that will run through the columns of a listbox and sum up all values that have similar names compared to a name found in a textbox (TextBox1) i have on my userform.

I have tried the following code but its not working as perfectly as i want

`

 Dim i As Integer
 Dim mySum As Double
 mySum = 0

 If Me.ListBox1.Column(i, 0) = Me.TextBox1.value And Me.ListBox1.Column(i, 0) <> "" Then
 For i = 0 To Me.ListBox1.ListCount - 1
 mySum = mySum + Me.ListBox1.List(i, 2)
 Next i
 Me.TextBox4.value = Format(mySum, "#,##0.00")

 End If
 End Sub`

It works alright but instead of adding values in the third column that have similar values in the first column that can be found in TextBox1, it sums up all the values in the third column

Kobby Adom · Accepted Answer · 2024-09-23 04:04:26Z

0

It looks like the logic in your code is not quite right - the If condition should be inside the For loop, the following should work:

For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.List(0, i) = Me.TextBox1.Value And Me.ListBox1.List(0, i) <> "" Then
        mySum = mySum + Me.ListBox1.List(i, 2)
    End If
Next i

edited Sep 23, 2024 at 4:04

Kobby Adom

397 bronze badges

answered Sep 23, 2024 at 3:06

Michal

7,6744 gold badges30 silver badges47 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Add Same Items In ListBox

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related