Macro para poner dos criterios a un mismo filtro de tabla dinamica desde celdas fuera de la tabla
publicado
Lo que necesite es que desde dos celdas fuera de una tabla dinamica darle los criterios de filtrado a la tabla dinamica.
He buscado en los foros y solo he encontrado como ponerle un criterio desde una celda externa, la situacion es que como minimo necesito dos criterios.
He sabido adaptar macros a mis necesidades, pero realmente no se como programarlas y lo hago por intuicion logica y esta por mas que intente no logra hacer que se active.
En archivo adjunto esta la macro que contiene en la instruccion para td1 fue la que modifique para que tomara los dos criterios pero no funciona, la instruccion para las otras dos tablas si funcionan parte de la macro tiene la modificacion no funciona. Y es que lo que necesito es que en dos celdas externar meter los criterios del filtro para tres tablas dinamicas.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Lo que necesite es que desde dos celdas fuera de una tabla dinamica darle los criterios de filtrado a la tabla dinamica.
He buscado en los foros y solo he encontrado como ponerle un criterio desde una celda externa, la situacion es que como minimo necesito dos criterios.
He sabido adaptar macros a mis necesidades, pero realmente no se como programarlas y lo hago por intuicion logica y esta por mas que intente no logra hacer que se active.
En archivo adjunto esta la macro que contiene en la instruccion para td1 fue la que modifique para que tomara los dos criterios pero no funciona, la instruccion para las otras dos tablas si funcionan parte de la macro tiene la modificacion no funciona. Y es que lo que necesito es que en dos celdas externar meter los criterios del filtro para tres tablas dinamicas.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$2" Then Exit Sub
Application.ScreenUpdating = False
'Actualiza las tablas
ActiveSheet.PivotTables("TD1").PivotCache.Refresh
'Actualiza el año de todas las tablas
añoN = Hoja4.Range("A2")
año2 = Hoja4.Range("b2")
ActiveSheet.PivotTables("TD1").PivotFields("AÑO").CurrentPage = "(A11)"
With ActiveSheet.PivotTables("TD1").PivotFields("AÑO")
.PivotItems(añoN).Visible = True
.PivotItems(año2).Visible = True
End With
ActiveSheet.PivotTables("TD2").PivotFields("Año").CurrentPage = _
añoN
ActiveSheet.PivotTables("TD3").PivotFields("Año").CurrentPage = _
añoN
Application.ScreenUpdating = True
End Sub
Tablas dinamicas sincronizadas3.xls