Totalizar columnas en impresión de ListBox

[pinoji]

Buenas noches amigos del Foro

Estoy teniendo una duda y necesito si pueden me aclaren.

Es sobre el mismo Proyecto de Pre-Nóminas.

Tengo en mi FrmHistorico una búsqueda, tanto por fechas como por otros campos y tengo también un procedimiento para que me imprima lo que el ListBox muestra.

Para mi esposa es necesario, porque, por ejemplo, si necesita saber el Salario real de un Departamento ‘X’ en una determinada fecha lo puede tener, además puede sacar los datos de un Trimestre, Semestre o año, pero mi duda viene ahora:

¿Es posible que cuando yo envíe a imprimir el contenido del ListBox los valores me puedan salir sumados después del último registro?

El formato es el mismo siempre, o sea, el mismo número de columnas en cualquiera de las búsquedas.

Yo necesito sumar las columnas Salario Real (P), Noct. (R), Bon. (S), Sobre Cump. (T) y Pagado (U)

Gracias de antemano y un saludo.

JIPM

PD

Usuario: Pino

Password: 123

Pre-Nómina Foro.xlsm

[Abraham Valencia]

Hola

Si mal no te entendí, ya no quieres los totales en la fila 3, sino al final como comentas, entonces, por ejemplo en tu botón "Genera reporte" (CommandButton2), después del For, específicamente después del Next I, coloca así:

Range("P" & fila) = Application.WorksheetFunction.Sum(Range("P6:P" & fila - 1))

Haz lo mismo para las otras columnas, ese es el ejemplo con una (la P)

Comentas

[pinoji]

Buenas Noches amigos del Foro

Buenas noches avalencia. Cómo está usted de salud.

No creo que me haya entendido del todo y voy a explicarme:

Primero: el código que me sugiere lo ubiqué en el lugar exacto donde me dijo y no me funciona, o sea, no hace o calcula los totales al final de cada columna... y me gustaría que me funcione para Proyectos futuros.

Segundo: No era eso precisamente lo que estoy buscando. Lo que necesito es que cuando haga una búsqueda y oprima el Botón  Imprimir Valores Filtrados (que ya el código está y funciona, o sea, lo envía a una hoja y la oculta) al final de estas columnas me totalice cada una de ellas. Nada tiene que ver con  Generar Reportes.

No se si ahora me entendió. De no ser así, por favor me lo comentas y le vuelvo a explicar...

Gracias por atender con premura mi pregunta.

Un Saludo y tenga usted buenas noches.

JIPM

[pinoji]

Buenas noches reiteradas amigo avalencia.

Le ofrezco disculpas a usted y toda la  membresía del Foro.

Realmente el código que usted me brindó si funciona y lo hace de manera correcta.  Antes de responder lo intenté dos veces y no me funcionó, pero después cerré y volví a a abrir el archivo y funcionó, no se que puedo haber pasado, pero estoy satisfecho con su sugerencia, pero me surge ahora una duda y me gustaría que me ayudara.  Creo que el código que tengo en el Botón  Imprimir Valores Filtrados me haría lo mismo que Generar Reporte, o sea, estaría de más.

Otra cosa, Cuando genero el reporte va a la Hoja "Reporte", que lo tengo como TABLA, pero si se fija, cuando exporta hacia ella los datos desde el FrmHistórico me deja la primera fila en blanco (Fila 5) y comienza desde la Fila 6 quedando todo fuera de la TABLA. Esto me genera errores en formatos de números y por ende en la suma de la columna. Le sugiero que haga un filtro por Tipo de Pre-nómina  (Salario) y verá a lo que me refiero.  Cómo podría arreglar eso?

Gracias una vez más.

Mil disculpas.

Respetuosamente

JIPM

[pinoji]

Ya resolví el problema mi amigo avelencia.

Gracias por toda su ayuda. Fue algo más que aprendí y eso lo agradezco.

Gracias a todos los miembros del Foro.

Tema Cerrado.

Saludos

JIPM