Need a solution for the sum of the selected values in the list box

Baski007 · May 3rd 2020

Hi all,

In the below command I was getting the sum values of all the values that was displayed in the listbox...I want the command to run as selected values in listbox to get sum and displaying in the textbox but once i run the program it displaying sum all the values displayed in the listbox.. can suggest any solution.

Code

Private Sub CommandButton1_Click()

 Dim i As Long
Dim sum As Double
Dim sum1 As Double
Dim sum2 As Double


If Me.ListBox1.Selected(i) = True Then
        With Me
        For i = 0 To Me.ListBox1.ListCount - 1
        sum = sum + Val(Me.ListBox1.List(i, 4))
        sum1 = sum1 + Val(Me.ListBox1.List(i, 5))
        sum2 = sum2 + Val(Me.ListBox1.List(i, 6))
        Next i
        
        Me.TextBox6.Text = sum & ".00"
        Me.TextBox8.Text = sum1 & ".00"
        Me.TextBox9.Text = sum2 & ".00"
End With
End If

End Sub

Display More

**royUK** · May 3rd 2020

You are using an With Me statement so the use of Me. within that statement will cause errors. Try this

Code

Private Sub CommandButton1_Click()


Dim i As Long
Dim sum As Double
Dim sum1 As Double
Dim sum2 As Double


With Me
If .ListBox1.Selected(i) = True Then


For i = 0 To .ListBox1.ListCount - 1
sum = sum + Val(.ListBox1.List(i, 4))
sum1 = sum1 + Val(.ListBox1.List(i, 5))
sum2 = sum2 + Val(.ListBox1.List(i, 6))
Next i


.TextBox6.Text = Format(sum, "0.00")
.TextBox8.Text = Format(sum1, "0.00")
.TextBox9.Text = Format(sum2, "0.00")
End With
End If


End Sub

Display More

Baski007 · May 3rd 2020

Thanks for ur reply..It was getting sum on not selected values in the listbox sir..This was the problem again it was occuring..

**royUK** · May 3rd 2020

I need to see your workbook

Baski007 · May 3rd 2020

Hi all,

find the attachement in that i was selecting one row but in th textbox it getting sum all the column values..i cant find why it was happening in this.. earlier it was worked fine now it was occuring like this..

**royUK** · May 3rd 2020

Image doesn't help, I asked for the workbook

Baski007 · May 3rd 2020

thanks for the reply...find the sample workbook attached

**royUK** · May 3rd 2020

This is what you are trying to do

Code

Private Sub CommandButton1_Click()
Dim i As Integer
Dim sum As Double
Dim sum1 As Double
Dim sum2 As Single
With Me.ListBox1




For i = 0 To .ListCount - 1
If .Selected(i) = True Then
sum = sum + Val(.List(i, 4))
sum1 = sum1 + Val(.List(i, 5))
sum2 = sum2 + Val(.List(i, 6))
End If
Next i
End With
Me.TextBox6.Text = Format(sum, "0.00")
Me.TextBox8.Text = Format(sum1, "0.00")
Me.TextBox9.Text = Format(sum2, "0.00")
End Sub

Display More

Need a solution for the sum of the selected values in the list box

Participate now!

Share

Tags