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

Problema con Sumara...
 
Compartir:
Avisos
Vaciar todo

Problema con Sumara valores en ListBox

jopi
 jopi
(@jopi)
Miembro eminente Registered

Ofrezco disculpas a todos pues me equivoqué y añadí el tema en Excel.

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 6:18 am
Etiquetas del debate
RET
 RET
(@ret)
Miembro Admin

@jopi,

 

Ejecuta paso a paso y vete comprobando que hace la rutina.

 

IMF_RET

https://InformaticaMuyFacil.com

ResponderCitar
Respondido : 10/12/2021 7:20 am
jopi
 jopi
(@jopi)
Miembro eminente Registered

Buenas tardes Foristas.

Buenas Tardes Ret.

Profesor, no entiendo lo que quiere decirme. Por favor, pudiera explicarme.

Gracias.

JIPM

ResponderCitar
Topic starter Respondido : 10/12/2021 11:42 pm
jopi
 jopi
(@jopi)
Miembro eminente Registered

Buenas tardes Foristas.

Buenas Tardes Ret.

Profesor, no entiendo lo que quiere decirme. Por favor, pudiera explicarme.

Gracias.

JIPM

ResponderCitar
Topic starter Respondido : 11/12/2021 4:52 am
RET
 RET
(@ret)
Miembro Admin

@jopi,

Puedes ejecutar el código paso a paso. Pon un punto de parada en la linea de código donde empiezas a calcular esos datos. Estando en el editor de código, en la línea que quieres, pulsa F9. Te aparecerá un punto rojo oscuro al margen. Cuando ejecutes, llegará hasta ahí, el código de parará y aparecerá la ventana del editor. La siguiente línea a ejecutar, aparece en amarillo. Con F8 ejecutas una línea, con F5 sigue la ejecución hasta el final.

Vete pulsando F8 y pon el ratón encima de las variables y te mostrará su velor en ese momento.

 

 IMF_RET

https://InformaticaMuyFacil.com

 

 

ResponderCitar
Respondido : 11/12/2021 5:18 pm
jopi
 jopi
(@jopi)
Miembro eminente Registered

Buenas noches Foristas.

Buenas noches RET. Ya resolví el problema con su sugerencia. Estaba usando Val cuando debía usar CDbl.

Tema cerrado.

Gracias por su ayuda.

JIPM

ResponderCitar
Topic starter Respondido : 16/12/2021 4:53 am

Dejar una respuesta

Nombre del autor

Correo electrónico del autor

Título *

 
Vista previa 0 revisiones Guardado