¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

Problema con Sumar ...
 
Compartir:
Avisos
Vaciar todo

Problema con Sumar valores en un ListBox

 jopi
(@jopi)
Eminent Member

Hola Foristas, Buenas noches a todos. Espero se encuentren bien de salud.

Tengo un pequeño problema y no he podido dar con lo que es. En un ListBox quiero que cuando se filtre entre un rango de fechas me sumen los totales filtrados. En el ejemplo que les muestro tiene una sola fecha (30/11/2021), pero ya para final de este mes tendrá 30/11/2021 más 30/12/2021 y así será a medidas que transcurran los meses, pero quiero que cuando filtre un mes o dos o tres meses determinados me de el resultado (por ejemplo para sacar el gasto de salario de un trimestre). Esa base de datos va a tener todos los mes, porque es un Histórico donde se va a ir almacenando todo, pero me da una diferencia entre el Total real y el Filtrado.

Los valores de los Label de la parte inferior del Formulario yo los tomo directo de la Hoja (Me.LblSalarioR.Caption = Format(Hoja25.Range("P3"), "#,##0.00")) y es la suma de toda la columna.

Este es el código que estoy utilizando para ello. La variable s la declaro arriba como tipo Long.

Gracias de antemano y que tengas buenas noches.

Saludos.

Jopi

Dim SUMA As Double
SUMA = 0
For s = 0 To Me.LstHistorico.ListCount - 1
    SUMA = SUMA + Val(Me.LstHistorico.List(s, 15))
Next s
    Total = Format(SUMA, "#,##0.00")
'---------Nocturnidad-----------------------------
Dim SUMA1 As Double
SUMA1 = 0
For s = 0 To Me.LstHistorico.ListCount - 1
    SUMA1 = SUMA1 + Val(Me.LstHistorico.List(s, 16))
Next s
    Total1 = Format(SUMA1, "#,##0.00")
'---------Bonificación----------------------------
Dim SUMA2 As Double
SUMA2 = 0
For s = 0 To Me.LstHistorico.ListCount - 1
    SUMA2 = SUMA2 + Val(Me.LstHistorico.List(s, 17))
Next s
    Total2 = Format(SUMA2, "#,##0.00")
'---------Sobre Cumplimiento----------------------
Dim SUMA3 As Double
SUMA3 = 0
For s = 0 To Me.LstHistorico.ListCount - 1
    SUMA3 = SUMA3 + Val(Me.LstHistorico.List(s, 18))
Next s
    Total3 = Format(SUMA3, "#,##0.00")
'---------Pagado----------------------------------
Dim SUMA4 As Double
SUMA4 = 0
For s = 0 To Me.LstHistorico.ListCount - 1
    SUMA4 = SUMA4 + Val(Me.LstHistorico.List(s, 19))
Next s
    Total4 = Format(SUMA4, "#,##0.00")
'---------------------------------------------------
Citar
Topic starter Respondido : 08/12/2021 5:56 am
Etiquetas del debate

Dejar una respuesta

Nombre del autor

Correo electrónico del autor

Título *

 
Vista previa 0 revisiones Guardado
Compartir: