datos de origen de una tabla dinamica

25/07/2008 - 02:22 por Paolita | Informe spam
Tengo una macro donde actualizo una tabla dinamica y quiero que su
fuente de origen sea otra tabla dinamica tengo este codigo y me marca
error como hago referencia despues de SourceData a la tabla

ActiveSheet.PivotTableWizard SourceType:=xlPivotTable,
SourceData:="noti!Tb_din"


la tabla dinamica tiene el nonbre Tb_din y la hoja se llama noti
 

Leer las respuestas

#1 Héctor Miguel
25/07/2008 - 02:45 | Informe spam
hola, Paolita !

Tengo una macro donde actualizo una tabla dinamica y quiero que su fuente de origen sea otra tabla dinamica
tengo este codigo y me marca error como hago referencia despues de SourceData a la tabla
ActiveSheet.PivotTableWizard SourceType:=xlPivotTable, SourceData:="noti!Tb_din"
la tabla dinamica tiene el nonbre Tb_din y la hoja se llama noti



1) el metodo PivotTableWizard (aunque no presenta al asistente)...
-> crea el origen (o re-defne el arreglo) de una TD
es lo mismo que usar el asistente para casi-casi empezar desde CERO la definicion y el arreglo de los campos de la TD
REQUIERE: que la hoja donde se ha de activar el asistente...
a) o NO contenga ninguna TD (dicha hoja se auto-activa despues del asistente) o...
b) o SEA la hoja activa y la primer celda de la TD este como activa -tambien-
de lo contrario, el metodo PovotTableWizard fallara !!!

2) si lo que buscas es (efectivamente) modificar el origen de tu TD de manera interactiva (a traves del asistente) ?
se necesita activar el rango (de la TD en concreto) y mostrar el (dialogo del) asistente de TD's
el siguiente ejemplo supone que tienes activa una seleccion (de varias celdas) y quieres -despues- regresar ahi...
Sub Modificar_TD_x_Asistente()
Dim Volver_A As String, Activa As String
Volver_A = Selection.Address
Activa = ActiveCell.Address
ActiveSheet.PivotTables(1).TableRange1.Activate
Application.Dialogs(xlDialogPivotTableWizard).Show
Range(Volver_A).Activate
Range(Activa).Activate
End Sub

probablemente haya otras formas de "ver" y buscar soluciones a tu situacion, por lo que...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares