Hola, muy buenas a tod@s: Tengo un pequeño problema para poder cambiar campos en una tabla dinámica con VBA (se puede ver el código completo abajo). De una Hoja previa con 3 tablas dinámicas en ella, he hecho 2 copias de dicha hoja (hojas “Clients” y “Quarter”) y ahora quiero cambiar ciertos campos de las tablas dinámicas en cada una de las hojas nuevas recién copiadas (y ya de paso cambiar el nombre de cada una de las Tablas Dinámicas). En la primera parte de la macro (la que hace referencia a la Hoja “Clients”), todo va bien mientras quito el campo que previamente estaba en la posición 3 de la filas llamado “Metier Desc”, y también va bien mientras acto seguido lo sustituyo por otra campo “Entity Description” a la vez que señalo que esté en la posición 3 (posición donde antes estaba “Metier Desc”). El problema llega cuando quiero añadir otro campo llamado “Business Group Description” (ver líneas del código en negrita más abajo), pues no lo consigo porque obtengo este error: Run time error ‘1004’: Unable to set the Orientation property of the Pivotfield class Lo mismo pasa exactamente igual en la segunda parte de la macro referente a la hoja “Quarter”: el campo en la posición 3 no da problemas, pero cuando intento agregar uno en la posición 4, error al canto. Sinceramente, no llego a entender qué estoy haciendo mal pues sigo las instrucciones de los comandos que he visto en la red. De hecho, los comandos previos para modificar el campo en la posición 3 funcionan perfectamente, pero cuando paso al nivel 4 da error. ¿Puede alguien por favor ayudarme? Muchísimas gracias Dim j As Integer For j = 1 To 3 With Worksheets("Clients").PivotTables("ReportTable" & j) .PivotFields("Metier Desc").Orientation = xlHidden .PivotFields("Entity Description").Orientation = xlRowField .PivotFields("Entity Description").Position = 3 .PivotFields("Business Group Description").Orientation = xlRowField .PivotFields("Business Group Description").Position = 4 .Name = "ClientsTable" & j End With With Worksheets("Quarter").PivotTables("ReportTable" & j) .PivotFields("Metier Desc").Orientation = xlHidden .PivotFields("Entity Description").Orientation = xlRowField .PivotFields("Entity Description").Position = 3 .PivotFields("RMPM Description").Orientation = xlRowField .PivotFields("RMPM Description").Position = 4 .Name = "QuarterTable" & j End With Next j

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

CambiarCamposTablaDinámica

Autor del tema durangorugby
Fecha de inicio 1 Ene 2019

durangorugby

Member

1 Ene 2019

Hola, muy buenas a tod@s:

Tengo un pequeño problema para poder cambiar campos en una tabla dinámica con VBA (se puede ver el código completo abajo). De una Hoja previa con 3 tablas dinámicas en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba