list1 how to sum the 5 column

[ontro]

Hi, I'm ontro

I can't sum the 5 column of list1


I have the code in excel that does it well
How would the code be in vb 6.0, thanks


the code in excel is the following

Dim I As Integer
Dim Sum As Double

Sum = 0
    For I = 0 To ListBox1.ListCount - 1
    
        Sum = Sum + ListBox1.List(I, 4)'Column 5

    Next I
            TextBox2.Text = Sum

how would the code be in vb 6.0

Thank you

[Arnoutdv]

A plain listbox doesn’t have colums.
I believe you, from a previous thread, use a listbox with tab stops.
So you have to split all items of the listbox.

Or better switch to the MSHFlexgrid

[ontro]

as would be an example of the listbox, thanks

[yereverluvinuncleber]

The fundamental issue you seem to be misunderstanding is that VB6 is not a spreadsheet by default (as is Excel).

The VBA code for Excel is valid but can only work with columns and rows that don't exist in a VB6 listbox. To transfer the code from VBA to VB6 you need to have a structure within your VB6 form that replicates Excel's columns/rows as Arnout suggested - or you change your code to work with a listbox.

[ontro]

how can I sum the 5 column in list1 vb 6.0
thanks

[Arnoutdv]

You can’t, unless you want to do string parsing.
Where does your data come from, an ado recordset?

[Eduardo-]

Try this:

Dim I As Integer
Dim Sum As Double

Sum = 0
    For I = 0 To ListBox1.ListCount - 1
    
        Sum = Sum + Val(Split(ListBox1.List(I), vbTab)(4))   'Column 5

    Next I
    TextBox2.Text = Sum

[ontro]

I have not been able to solve it but thank you very much for your answers

[ontro]

thank you very much, Eduardo
Yes now