Problema con las tablas dinámicas

09/06/2005 - 12:23 por VanSaak | Informe spam
Un saludo a toda la red y posibles escuchas,

Tengo un problema con una tabla dinámica. El caso es que tengo una tabla
para comprobar una serie de gastos y una columna de la tabla es de
"conceptos". El caso es que si se introduce un concepto erroneo, se
actualiza la tabla, se ve el error y se corrige. La cuestion es que al
actualizar la tabla de nuevo, al pulsar la flecha que desplega los
conceptos para marcarlos o no, aparece el concepto erroneo, a pesar de
haberlo borrado.

La cuestion es que si trabajas mucho con la tabla, pueden existir muchos
errores que se van acumulando en la lista desplegable.

¿Sabe alguien alguna posibilidad, para que al actualizar la tabla, se
"olvide" de los que hubo en algún momento, y solo refleje los que existen
en ese instante?, todo esto claro, sin tener que crear la tabla de nuevo,
que siempre es la ultima opcion.

Muchas gracias por adelantado.

VanSaak

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
09/06/2005 - 17:20 | Informe spam
Yo alguna vez he usado el siguiente código:

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
On Error GoTo 0 'Por si hubiera más código despues

Set piP = Nothing
Set pfP = Nothing
Set ptP = Nothing
Set wksH = Nothing
End Sub


Ten en cuenta que tal como está escrito "limpiará" todas las tablas dinámicas del libro activo.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"VanSaak" escribió en el mensaje news:
Un saludo a toda la red y posibles escuchas,

Tengo un problema con una tabla dinámica. El caso es que tengo una tabla
para comprobar una serie de gastos y una columna de la tabla es de
"conceptos". El caso es que si se introduce un concepto erroneo, se
actualiza la tabla, se ve el error y se corrige. La cuestion es que al
actualizar la tabla de nuevo, al pulsar la flecha que desplega los
conceptos para marcarlos o no, aparece el concepto erroneo, a pesar de
haberlo borrado.

La cuestion es que si trabajas mucho con la tabla, pueden existir muchos
errores que se van acumulando en la lista desplegable.

¿Sabe alguien alguna posibilidad, para que al actualizar la tabla, se
"olvide" de los que hubo en algún momento, y solo refleje los que existen
en ese instante?, todo esto claro, sin tener que crear la tabla de nuevo,
que siempre es la ultima opcion.

Muchas gracias por adelantado.

VanSaak
Respuesta Responder a este mensaje
#2 VanSaak
09/06/2005 - 17:56 | Informe spam
Estimado Fernando,


El codigo funciona perfectamente.
Muchas gracias y hasta pronto.

Un saludo

VanSaak


"Fernando Arroyo" wrote in
news::

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
On Error GoTo 0 'Por si hubiera m s c¢digo despues

Set piP = Nothing
Set pfP = Nothing
Set ptP = Nothing
Set wksH = Nothing
End Sub



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida