Hola, soy nuevo en esto de la programación y tengo un problema con un programa que estoy creando.
El programa es para un restaurante y me falta un codigo para que:
Los números que esten dentro de un listbox se sumen y aparezcan dentro de un textbox. o sea:
[Dentro del listbox van estos numeros: 1 - 2 - 3.] y quiero que esos números se sumen y aparezcan en el textbox. A ver si me pueden ayudar y si no se puede con que otra cosa parecida se podría?.

Hola Smoke, probá si podes con esto:

Dim lineas As Long: Dim suma As Long
For lineas = 0 To List1.ListCount - 1
suma = suma + Val(List1.List(lineas))
Next
Text1 = suma

Salu2 d Dessa

Gracias, eso me sirvió, pero si el resultado tiene que ser con decimales? . Probé con la Variable "as currency y as single" perono funcionan.
Perdon por la molestia

Hola,con el codigo que te dijo dessa para tener decimales podes usar el FormatNumber,y indicarle los decimales que queres,en este caso 2,algo asi:

Código:

Dim lineas As Long: Dim suma As Double
For lineas = 0 To List1.ListCount - 1
suma = suma + Val(List1.List(lineas))
Next
Text1 = FormatNumber(suma, 2, vbFalse)

y le cambie la variable a Double,si pones en el listbox por ejemplo 50.30 y 50.40 te tira resultado = 100,70

saludos.

Gracias, intente con eso, pero lo unico que hace es poner los decimales en el resultado, no sumarlos desde el list. A lo que voy es que se sumen los numeros dentro del list pero numeros con decimales, por ej: (1,50 + 2,50). En este caso el código que vos me diste redondea el resultado...
Gracias.

Listo ya solucioné el problema, muchas gracias por su ayuda

bueno ps si te sirve de algo usa CDBL

Dim lineas As Long: Dim suma As double
For lineas = 0 To List1.ListCount - 1
suma = suma + CDbl(List1.List(lineas))
Next
Text1 = suma

Y si kiero ke un boton ejecute esa operacion(suma de elementos) y lo mande a un text box como demonios se hace soy novaton gracias

No se si te has percatado, pero has reactivado un post con mas de dos años de antigüedad, creo que si tienes mas dudas sería mejor que abrieras uno nuevo.

De todos modos y ya que estamos aquí, lo único que debes hacer es copiar el código expuesto en el evento Click del Boton y cambiar los nombres de los objetos por los que a ti te convengan.

Mas fácil, imposible.