Hola muchachos, quería solicitarles una ayuda con lo siguiente:
Tengo que filtrar 50 tablas dinámicas desde un listado, estas tablas se filtran por "Zona"
(Lo primero que hice fue copiar 50 veces el código y cambiar el valor manualmente, pero ya siendo esta la 3era vez que debo cambiar valores, consideré que un array es mucho mejor).
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Rut")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Nombre")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Especialidad")
.Orientation = xlRowField
.Position = 3
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Días de corridos")
.Orientation = xlRowField
.Position = 4
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("Días de corridos"), _
"Cuenta de Días de corridos", xlCount
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields( _
"Cuenta de Días de corridos")
.Caption = "Suma de Días de corridos"
.Function = xlSum
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("Rut"), "Cuenta de Rut", xlCount
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Zona")
.Orientation = xlPageField
.Position = 1
End With
Range("B4").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Nombre").AutoSort _
xlDescending, "Suma de Días de corridos", ActiveSheet.PivotTables( _
"Tabla dinámica1").PivotColumnAxis.PivotLines(1), 1
Hola muchachos, quería solicitarles una ayuda con lo siguiente:
Tengo que filtrar 50 tablas dinámicas desde un listado, estas tablas se filtran por "Zona"
(Lo primero que hice fue copiar 50 veces el código y cambiar el valor manualmente, pero ya siendo esta la 3era vez que debo cambiar valores, consideré que un array es mucho mejor).
Donde está el comentario '<-ZONAL son los datos que deben reemplazarse por los del arreglo. Pero así tan como esta no resulta.
¿Alguna ayudita?
Espero sus comentarios, y gracias desde ya.
Saludos