addition decimal numbers in listbox error

[adelvoira]

hello, i have a listbox contains a decimal numbers like 590100,423516 and i want to make an addition of all the lines of my listbox and display it in a textbox
now i'm using this code but it's not working well

here is the code

dim x,i as double
for i =0 to listbox8.listcount - 1
x=x+ listbox8.list(i,3)
next i
textbox75.value= x

 

[Rick Rothstein]

hello, i have a listbox contains a decimal numbers like 590100,423516 and i want to make an addition of all the lines of my listbox and display it in a textbox
now i'm using this code but it's not working well

here is the code

dim x,i as double
for i =0 to listbox8.listcount - 1
x=x+ listbox8.list(i,3)
next i
textbox75.value= x

Is the comma your decimal point? Why don't you show us maybe 3 or 4 entries from you ListBox and then show us what you want displayed in the TextBox for those values.

 

[adelvoira]

https://ibb.co/egrMgb
Yes the comma is the decimal points as shown on the linked picture
and i want to make an addition displayed on the textbox
thank you

 

[Rick Rothstein]

https://ibb.co/egrMgb
Yes the comma is the decimal points as shown on the linked picture
and i want to make an addition displayed on the textbox
thank you

Try using this in place of the code you posted in Message #1 ...

Dim x As Variant, i As Long
For i = 0 To listbox8.ListCount - 1
  x = x + CDec(listbox8.List(i, 3))
Next i
textbox75.Value = x

 

[adelvoira]

Yes, it's working very well
thank you so much ��

 

[adelvoira]

The error returns back when i open the file on excel 2013, because i was working by excel 2010

 

[Rick Rothstein]

The error returns back when i open the file on excel 2013, because i was working by excel 2010

What is the error number and error description?

Which line of code is highlighted when the error occurs.

 

[adelvoira]

code error 13 as shown on the screenshot
https://postimg.org/image/erh036cw5/