Nota al pie de la tabla dinámica

hola, Darío !

He borrado varias veces la tabla dinamica y comienzo desde el principio,
pongo fecha, numero de factura, base imponible, iva y total factura en filas
y pongo en datos una columna que yo invente donde todos los registros son "1"

los campos de los que quieras que una TD muestre un resumen en importes deben ir en el area de datos
es decir, si en el origen de datos, los titulos "base imponible, iva y total factura" son los importes a mostrar
esos campos son los que debes disponer en el area de datos de la TD (NO en el area de filas)

y estan activados los totales generales de filas y columnas y subtotales de elementos ocultos
y no me salen los totales al final de pagina que me habian salido anteayer. Que estare haciendo mal?

prueba cambiando el arreglo segun el punto anterior y... comentas ?
saludos,
hector.

La solución que te presenta Héctor está interesante, pero no quisiera dejar
el hilo pendiente, así que considera el siguiente código:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim xC As Long
xC = Range("A3").CurrentRegion.Rows.Count
Range(Cells(xC + 3, 1), Cells(Cells.Rows.Count, 2)).ClearContents
Cells(xC + 5, 1).Value = "Total:"
Cells(xC + 5, 2).Formula = "=GetPivotData(""PrecioUnitario"",$A$3)"
End Sub

Este código lo deberías poner en la hoja donde está tu tabla dinámica.
Estoy suponiendo que tu tabla principia en la celda A3, y que la nota que
mencionas la quieres poner 3 líneas bajo la última línea de la tabla.

En mi código, estoy sumando 5 a la última línea de la tabla (2 líneas antes
de la primera fila -A3-, y 3 líneas bajo la última), y además, supongo que lo
que necesitas es el total del campo "PrecioUnitario".

Pruébalo, y adáptalo a tu caso, para ver si te es funcional.

Espero que te sirva. ¡Saludos!




"GRIEGO59" escribió:

Hola David

Se un poquitico de programación VBA y no tengo problema si aparece el
mensaje siempre que no se borre mi nota.

Gracias,

Darío



"David" escribió:

> Hola, Griego59.
>
> Dos previas a darte ideas:
>
> Primero, creo que tu problema puede resolverse fácilmente, pero a través de
> código. ¿Cómo estás en programación VBA?
>
> Segundo, cada vez que actualices la tabla dinámica, ésta crecerá o se
> encogerá. Cuando la tabla se encoja, será necesario borrar todo lo que hay
> por debajo de la TD para que no queden notas que ya hayan caducado. Esto no
> genera conflictos, pero cuando la TD crezca, ésta ocupará el área de tu nota,
> lo que generará un mensaje indicando que la tabla dinámica borrará el
> contenido de algunas celdas. Este mensaje sería un tanto difícil de
> desactivar. ¿Hay problema con él?
>
> Espero tus comentarios...
>
>
>
> "GRIEGO59" escribió:
>
> > Hola!
> >
> > Quisiera poner una nota al pie de la tabla dinámica que no se borre cuando
> > se actualiza y crece la tabla dinámica.
> >
> > La nota tiene una formula que toma información de los totales de datos de la
> > TD.
> >
> > Gracias anticipadas,
> >
> > Darío.

Muchas gracias David,
Funciona perfecto!
Agregué cuatro líneas a tu código asi,

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim xC As Long
xC = Range("A3").CurrentRegion.Rows.Count
Range(Cells(xC + 3, 1), Cells(Cells.Rows.Count, 2)).ClearContents
Cells(xC + 5, 2).Value = "Total Base imponible"
Cells(xC + 5, 1).Formula = "=GetPivotData(""Base imponible"",$A$3)"
Cells(xC + 6, 2).Value = "Total Impuesto IVA"
Cells(xC + 6, 1).Formula = "=GetPivotData(""Impuesto IVA"",$A$3)"
Cells(xC + 7, 2).Value = "Total factura"
Cells(xC + 7, 1).Formula = "=GetPivotData(""Total factura"",$A$3)"
End Sub





"David" escribió:

La solución que te presenta Héctor está interesante, pero no quisiera dejar
el hilo pendiente, así que considera el siguiente código:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim xC As Long
xC = Range("A3").CurrentRegion.Rows.Count
Range(Cells(xC + 3, 1), Cells(Cells.Rows.Count, 2)).ClearContents
Cells(xC + 5, 1).Value = "Total:"
Cells(xC + 5, 2).Formula = "=GetPivotData(""PrecioUnitario"",$A$3)"
End Sub

Este código lo deberías poner en la hoja donde está tu tabla dinámica.
Estoy suponiendo que tu tabla principia en la celda A3, y que la nota que
mencionas la quieres poner 3 líneas bajo la última línea de la tabla.

En mi código, estoy sumando 5 a la última línea de la tabla (2 líneas antes
de la primera fila -A3-, y 3 líneas bajo la última), y además, supongo que lo
que necesitas es el total del campo "PrecioUnitario".

Pruébalo, y adáptalo a tu caso, para ver si te es funcional.

Espero que te sirva. ¡Saludos!




"GRIEGO59" escribió:

> Hola David
>
> Se un poquitico de programación VBA y no tengo problema si aparece el
> mensaje siempre que no se borre mi nota.
>
> Gracias,
>
> Darío
>
>
>
> "David" escribió:
>
> > Hola, Griego59.
> >
> > Dos previas a darte ideas:
> >
> > Primero, creo que tu problema puede resolverse fácilmente, pero a través de
> > código. ¿Cómo estás en programación VBA?
> >
> > Segundo, cada vez que actualices la tabla dinámica, ésta crecerá o se
> > encogerá. Cuando la tabla se encoja, será necesario borrar todo lo que hay
> > por debajo de la TD para que no queden notas que ya hayan caducado. Esto no
> > genera conflictos, pero cuando la TD crezca, ésta ocupará el área de tu nota,
> > lo que generará un mensaje indicando que la tabla dinámica borrará el
> > contenido de algunas celdas. Este mensaje sería un tanto difícil de
> > desactivar. ¿Hay problema con él?
> >
> > Espero tus comentarios...
> >
> >
> >
> > "GRIEGO59" escribió:
> >
> > > Hola!
> > >
> > > Quisiera poner una nota al pie de la tabla dinámica que no se borre cuando
> > > se actualiza y crece la tabla dinámica.
> > >
> > > La nota tiene una formula que toma información de los totales de datos de la
> > > TD.
> > >
> > > Gracias anticipadas,
> > >
> > > Darío.

Gracias amigo,

Funciona perfecto,

Los totales de cada campo quedan uno debajo del otro como lo exigen las
regulaciones fiscales de mi pais,

y quedan ocultas las líneas de totales de cada factura.

Lo único que no me gusta es que muestra el detalle de cada factura (Base
imponible, IVA y Total factura), tambien uno debajo del otro, debido a que la
TD muestra una sola columna para los montos y yo necesito el detalle de cada
factura uno al lado del otro y la suma del detalle de cada factura uno debajo
del otro.

Yo trate de resolver esto moviendo el cuadro gris que dice datos hacia el
cuadro que dice totales y funciona bien, es decir, se abren tres columnas y
el detalle de cada factura se muestra uno al lado del otro, pero, los totales
de cada detalle también quedan uno al lado del otro. : (

Para mi es importante hacerlo sin código porque quisiera mostrarle esto a
unos estudiantes que no conocen VBA.



"Héctor Miguel" escribió:

hola, Darío !

> He borrado varias veces la tabla dinamica y comienzo desde el principio,
> pongo fecha, numero de factura, base imponible, iva y total factura en filas
> y pongo en datos una columna que yo invente donde todos los registros son "1"

los campos de los que quieras que una TD muestre un resumen en importes deben ir en el area de datos
es decir, si en el origen de datos, los titulos "base imponible, iva y total factura" son los importes a mostrar
esos campos son los que debes disponer en el area de datos de la TD (NO en el area de filas)

> y estan activados los totales generales de filas y columnas y subtotales de elementos ocultos
> y no me salen los totales al final de pagina que me habian salido anteayer. Que estare haciendo mal?

prueba cambiando el arreglo segun el punto anterior y... comentas ?
saludos,
hector.

hola, Darío !

(si entiendo bien...) la TD muestra un "arreglo" igual que el listado de origen
si esto es correcto, no le veo sentido a la elaboracion de una TD
a menos que en los datos de origen existan facturas con mas de un "registro"
(o que en los detalles que has expuesto, algunos se hubieran quedado en el tintero ?)

saludos,
hector.

__ OP __

Los totales de cada campo quedan uno debajo del otro como lo exigen las regulaciones fiscales de mi pais,
y quedan ocultas las lineas de totales de cada factura.
Lo unico que no me gusta es que muestra el detalle de cada factura (Base imponible, IVA y Total factura)
tambien uno debajo del otro, debido a que la TD muestra una sola columna para los montos
y yo necesito el detalle de cada factura uno al lado del otro y la suma del detalle de cada factura uno debajo del otro.
Yo trate de resolver esto moviendo el cuadro gris que dice datos hacia el cuadro que dice totales y funciona bien
es decir, se abren tres columnas y el detalle de cada factura se muestra uno al lado del otro
pero, los totales de cada detalle tambien quedan uno al lado del otro. : (
Para mi es importante hacerlo sin codigo porque quisiera mostrarle esto a unos estudiantes que no conocen VBA...