Vincular tablas dinámicas con filtros de varios elementos
publicado
Hola,
Antes de nada saludar a todos los usuarios.
Acabo de vincular varias tablas dinámicas a un mismo filtro de informe con el código que vi en este foro y funciona perfectamente, el problema viene al seleccionar varios elementos dentro del filtro, si marco la opción "seleccionar varios elementos" deja de funcionar.
Me podríais ayudar con el código para poder hacer filtros de varios elementos, por ejemplo si tengo el campo trimestres que pueda seleccionar T1, T2 y T3.
Este es mi código:
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Dim TablaDinamica As PivotTable
Const Filtro1 As String = "Trimestre"
Application.EnableEvents = False
On Error Resume Next
For Each Sh In Sheets(Array("Agentes Evolución Anual Ventas", "Abc Provincias", "Abc Lámparas"))
Hola,
Antes de nada saludar a todos los usuarios.
Acabo de vincular varias tablas dinámicas a un mismo filtro de informe con el código que vi en este foro y funciona perfectamente, el problema viene al seleccionar varios elementos dentro del filtro, si marco la opción "seleccionar varios elementos" deja de funcionar.
Me podríais ayudar con el código para poder hacer filtros de varios elementos, por ejemplo si tengo el campo trimestres que pueda seleccionar T1, T2 y T3.
Este es mi código:
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Dim TablaDinamica As PivotTable
Const Filtro1 As String = "Trimestre"
Application.EnableEvents = False
On Error Resume Next
For Each Sh In Sheets(Array("Agentes Evolución Anual Ventas", "Abc Provincias", "Abc Lámparas"))
For Each TablaDinamica In Sh.PivotTables
TablaDinamica.PivotFields(Filtro1).CurrentPage = Target.PivotFields(Filtro1).CurrentPage.Name
Next TablaDinamica
Next Sh
Application.EnableEvents = True
End Sub
Un saludo y Muchas gracias!!!