Filtro automatico de Tabla Dinamica

1 post / 0 nuevos
Marianela Ruatta
Imagen de Marianela Ruatta
Offline
última acción: Hace 1 mes 5 días
alta: 18/08/2017 - 14:27
Puntos: 175
Filtro automatico de Tabla Dinamica

Hola, buenos dias! 

Tengo una macro que funciona OK para incorporar a una tabla dinamica un filtro de acuerdo al valor de la celda (F1), el problema es que solo se ejecuta dicha macro si doy enter en esa celda. La celda F1 tiene un valor, que viene de otra hoja, es por eso que si no le doy enter la macro no identifica que he modificado el valor de la celda.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F1")) Is Nothing Then

    'En base al campo Region de la Tabla dinámica1:

    With PivotTables("Tabla dinámica1").PivotFields("Sucursal OK")  

        'Limpiar todos los filtros

        .ClearAllFilters

        'Filtrar por el valor de la celda F1

        On Error Resume Next

        .CurrentPage = Range("F1").Value  

    End With

End If

End Sub

Podrian ayudarme con esta duda, seria de gran ayuda en mi trabajo, ya que asi puedo filtrar todas las tablas dinamicas con el cambio en el valor de la celda.
 
Gracias!

Etiquetas: