Tablas dinamicas...

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

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

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

Thank you for your help.