05/03/2013, 15:43
|
 | | | Fecha de Ingreso: diciembre-2003
Mensajes: 145
Antigüedad: 20 años, 5 meses Puntos: 7 | |
| Respuesta: Fantasmas en Tabla dinámica.
meses despues he aqui la solucion
Sub DeleteOldItemsV1()
Dim pt As PivotTable
Dim ws As Worksheet
Dim pc As PivotCache
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
For Each pc In ActiveWorkbook.PivotCaches
On Error Resume Next
pc.Refresh
Next pc
End Sub
__________________
Pero si alguno de vosotros se ve falto de sabiduría, que la pida a Dios, el cual da a todos abundantemente y sin reproche, y le será dada. Pero que pida con fe, sin dudar
Santiago 1.5-6 |