tabla dinámica

Filtrar tabla dinámica según valor de celda
Cuando tienes varias tablas dinámicas y necesitas aplicar un filtro a todas ellas al mismo tiempo en base al valor de una celda te das cuenta que noexiste una manera fácil de hacerlo en Excel. Hoy analizaremos una alternativa para filtrar una tabla dinámica según el valor de una celda.
Antes de continuar, debo aclarar que los filtros deinforme son la opción más sencilla para filtrar una tabla dinámica ya que podemos elegir los datos que deseamos visualizar. Sin embargo, hay ocasiones en las que una fórmula de Excel inserta un valor en unacelda por el cual queremos filtrar una tabla dinámica o simplemente porque el usuario desea ingresar el texto manualmente. Cualquiera que sea el caso, será necesario utilizar código VBA para filtrar latabla dinámica en base al valor de dicha celda.
Como primer ejemplo utilizaremos una tabla dinámica que muestra la lista de estados con sus respectivos montos de ventas de los últimos dos años. Cadaestado pertenece a una región (Norte, Sur, Este, Oeste) que está presente como el filtro de informe de la tabla dinámica, pero no utilizaremos dicho filtro de informe sino que aplicaremos el filtroa la tabla dinámica en base al valor de la celda F1.

Filtrar tabla dinámica según valor de celda
El código que utilizaremos detecta cualquier cambio en la celda F1 y posteriormente se realiza laactualización de los datos de la tabla dinámica.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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("Region")
     
        '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
La...