Totalizador por hoja

Cualquier otro tipo de consultas sobre la Hoja de Cálculos Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Totalizador por hoja

Notapor NB » 17 Nov 2011 13:47

Hola:
Recurro a Uds. para consultar, ¿Cómo se podría insertar un totalizador por hoja?.
Utilizo un reporte de seis columnas con 200 o más hojas.
Una de las columnas tiene valores que deben ser sumados.
Necesito insertar en una nueva columna, que llegaría a ser la columna siete, donde en una celda, al final de cada página, se imprima la suma de los valores de cada hoja.
No existe ningún dato o criterio identificador para generar la suma únicamente, el haber llegado a un salto automático de página. Este salto de página podría variar con un eventual cambio de márgenes, tamaño de letra allto de filas, etc.
Estaré a la espera de sus aportes, reciban un saludo y mis anticipados agradecimientos.
NB
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
NB
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Abr 2006 12:08
Ubicación: Bolivia

Re: Totalizador por hoja

Notapor e.prieto » 17 Nov 2011 18:00

Hola,
copia este código en el editor VBA, es la base de la idea, el resto intenta desarrollarlo por ti mismo. Si tienes más dudas envíame un email a int3rvalo@yahoo.es

Sub subsaltos()
'borrar anteriores subtotales y saltos de página
ActiveSheet.ResetAllPageBreaks
'suponemos que en la columna C se escribirán los subtotales
Columns("C:C").Delete Shift:=xlToLeft
'calcular nuevos
ActiveWindow.View = xlPageBreakPreview
'cuantos saltos de línea tenemos?
numeroDesaltos = ActiveSheet.HPageBreaks.Count
'ciclo por cada salto de línea
For i = 1 To numeroDesaltos
fila = ActiveSheet.HPageBreaks(i).Location.Row
Range("c" & fila - 1).Value = "Subtotal" 'reemplazar por una función para que haga el cálculo
Next i
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
e.prieto
Miembro Frecuente
Miembro Frecuente
 
Registrado: 08 Nov 2011 04:41

Re: Totalizador por hoja

Notapor NB » 18 Nov 2011 00:01

Gracias, pero por desconocer el VBA quisiera también conocer si existe alguna alternativa de solución con base a fórmulas.
Gracias,
NB
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
NB
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Abr 2006 12:08
Ubicación: Bolivia

Re: Totalizador por hoja

Notapor e.prieto » 18 Nov 2011 03:11

me temo que no hay solución a base de funciones... te he contestado al mail, voy a intentar probar una idea con subtotales y si lo consigo te envío el ejemplo por mail
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
e.prieto
Miembro Frecuente
Miembro Frecuente
 
Registrado: 08 Nov 2011 04:41


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Otras Consultas

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados