Quitar datos Obsoletos en Tabla Dinámicas

Hola,


Si tenemos una tabla dinámica, por ejemplo, Vendedor y Vr. Ventas, y hay
que modificar datos en la base de datos, por ejemplo el nombre de un
vendedor pues existía un error de ortografía o escritura, al actualizar
la tabla y ver el filtro vendedor, queda visible el dato obsoleto (el
nombre que tenia el error).

Hasta el momento la solución que encuentro es quitar el campo,
actualizar la TD y volver a poner el campo en su sitio y desaparece el
dato obsoleto.

El problema es que no todas las TD son tan simples y retirar el campo
produce cambios en campos calculados y que hay necesidad de volver a
construir la tabla.

Y si existen varias tablas que usan el campo que se modifico, y se hace
el cambio en una sola tabla no es suficiente para hacer desaparecer el
dato obsoleto, sigue apareciendo nuevamente, al parecer hay que
eliminarlo de todas y volver a construirlas


¿No hay alguna forma de limpiar estos datos obsoletos de la tabla sin
tener que volver a construir las tablas nuevamente?

Gabriel

hola, Gabriel !

solo una pregunta:

estos procedimientos te resolvieron el problema que comentaste con los campos calculados (?)

saludos,
hector.

si señor,
Lo que queria era eliminar los datos obsoletos para no tener que construir nuevamente la TD.

Y para Excel 2003.
con macros

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

Gabriel

Héctor Miguel escribió:
hola, Gabriel !

solo una pregunta:

estos procedimientos te resolvieron el problema que comentaste con los campos calculados (?)

hola, Gabriel !

ok, gracias por la informacion (y por compartir el codigo) ;)

saludos,
hector.

si señor,
Lo que queria era eliminar los datos obsoletos para no tener que construir nuevamente la TD.

Y para Excel 2003.
con macros

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

Gabriel

Héctor Miguel escribió:
hola, Gabriel !

solo una pregunta:

estos procedimientos te resolvieron el problema que comentaste con los campos calculados (?)