Sumar columna de listbox
Publicado por Albert (204 intervenciones) el 19/11/2016 15:07:39
buenos días oreros, tengo un código que en teoría me debería sumar la columna 3 del listbox3 y ponerme el resultado en el textbox47, eso es la teoría, en realidad solo me pone el importe de la primer fila, he probado cambiar el "0" por 1 o por -1 pero no soy capaz de que me sume.
Gracias por vuestra ayuda
1
2
3
4
5
6
Dim i
Dim tot
For i = 0 To FrmNuevo.ListBox3.ListCount - 2
tot = tot + CDbl(FrmNuevo.ListBox3.List(i, 3))
Next i
FrmNuevo.TextBox47 = tot
Gracias por vuestra ayuda
Valora esta pregunta


0