Saltar al contenido

Escribir en celdas los datos a filtrar

publicado

Buen dia, estoy trabajando con una tabla dinámica y estoy haciendo macros para filtrar ingresando los datos en una celda. Si solo necesito filtrar por un valor con esta macro lo puedo resolver

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C28:C35")) Is Nothing Then
    With PivotTables("Tabla dinámica9").PivotFields("Month")
     On Error Resume Next
    .CurrentPage = Range("C28").Value
    End With
End If
End Sub

Eso es considerado que en la tabla solo quiero ver un mes, pero si quisiera dos o mas veces, la idea es ingresar esos meses en una celda y que esos datos los tome como ejemplo. Hice una prueba con la grabadora de macros y lo hace al revez osea solo recibe los datos que no quiero ver, en mi caso yo quiero recibir los datos que quiero ver.

 

Gracias de antemano

Featured Replies

No posts to show

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.