Tablas dinamicas...

[ticotico]

Tengo una tabla Dinamica (TD) que se alimenta
de los datos de otra Taba (T1).

Esta TD tiene la posibilidad de leleccionar
en un desplegable el mes del cual quieres
que te saque el resumen Ene, Feb, Mar...

Que ocurre cuando se creo la tabla habian datos disponibles de Ene, Feb, Mar...
entonces en la TD podias seleccionar esos 3 meses.
Actualmente en la T1 no hay datos de esos meses, sin embargo en los desplegables donde
seleccionas los meses, me siguen apareciendo
estos tres meses, que ya no tienen datos.

Como se puede reinicializar esto ?´

gracias de antemano..

 

[Juan Pablo González]

Esta pregunta se perdió por el hack de China, pero bueno... la respuesta es recrear nuevamente la tabla dinámica.

 

[ticotico]

SOLUCIONADO CON MACRO :


Sub Borrar_PivotItems()
Dim wksH As Worksheet
Dim ptP As PivotTable
Dim pfP As PivotField
Dim piP As PivotItem
Dim i As Integer

On Error Resume Next

For i = 1 To 2
For Each wksH In ActiveWorkbook.Worksheets
For Each ptP In wksH.PivotTables
For Each pfP In ptP.PivotFields
For Each piP In pfP.PivotItems
piP.Delete
Next
Next
ptP.RefreshTable
Next
Next
Next

Set piP = Nothing
Set pfP = Nothing
Set ptP = Nothing
Set wksH = Nothing

End Sub


El código anterior borra todos los PivotItems de todas las tablas dinámicas
del libro, y luego los vuelve a crear, pero tan sólo los que tienen datos.

Este problema está documentado en la KB de Microsoft:
http://support.microsoft.com/default.aspx?scid=KB;en-us;q202232
Este artículo se refiere a Excel 97, pero el problema persiste en Excel
2000.

Un saludo.
ticotico

nota: solucion original aportada por
Fernando Arroyo en los foros google.

gracias Fernando

 

[ticotico]

SOLUCIONADO CON MACRO :


Sub Borrar_PivotItems()
Dim wksH As Worksheet
Dim ptP As PivotTable
Dim pfP As PivotField
Dim piP As PivotItem
Dim i As Integer

On Error Resume Next

For i = 1 To 2
For Each wksH In ActiveWorkbook.Worksheets
For Each ptP In wksH.PivotTables
For Each pfP In ptP.PivotFields
For Each piP In pfP.PivotItems
piP.Delete
Next
Next
ptP.RefreshTable
Next
Next
Next

Set piP = Nothing
Set pfP = Nothing
Set ptP = Nothing
Set wksH = Nothing

End Sub


El código anterior borra todos los PivotItems de todas las tablas dinámicas
del libro, y luego los vuelve a crear, pero tan sólo los que tienen datos.

Este problema está documentado en la KB de Microsoft:
http://support.microsoft.com/default.aspx?scid=KB;en-us;q202232
Este artículo se refiere a Excel 97, pero el problema persiste en Excel
2000.

Un saludo.
ticotico

nota: solucion original aportada por
Fernando Arroyo en los foros google.

gracias Fernando

 

[JRCook2003]

Thank you for your help.