Cambiar filtros de informe de tabla dinámica con macro desde otra hoja en el mismo libro
publicado
Cambiar filtros de informe de tabla dinámica con macro haciendo una texbox en otra hoja mismo libro
Supongamos que tengo una macro el cual me hace una tabla dinámica en esta macro ya están todos los valores definidos. mi pregunta es:
Si quiero que el filtro de informe este determinado por lo que esta en una lista desplegable de validación de datos que se encuentra en otra hoja como logro que, en el momento que se termine la tabla dinámica el filtro me lo ponga de acuerdo al valor que tengo en esa celda de esa otra hoja??
With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("Tecnologia")
.PivotItems("MULTEGO 4X2").Visible = False
.PivotItems("SCANIA PB").Visible = False
.PivotItems("VOLVO 9700 4X2").Visible = False
.PivotItems("VOLVO 9700 6X2").Visible = False
.PivotItems("VOLVO 9300").Visible = False
End With
With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("tecnologia"). _
CurrentPage = Hoja4.Range("j9")
End With
Lo que quiero es que el valor mostrado en la Pivot.Tablo sea el valor colocado en la hoja4 en la celda j9 pero no lo hace alguien me puede contribuir un aporte
Saludos!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Cambiar filtros de informe de tabla dinámica con macro haciendo una texbox en otra hoja mismo libro
Supongamos que tengo una macro el cual me hace una tabla dinámica en esta macro ya están todos los valores definidos. mi pregunta es:
Si quiero que el filtro de informe este determinado por lo que esta en una lista desplegable de validación de datos que se encuentra en otra hoja como logro que, en el momento que se termine la tabla dinámica el filtro me lo ponga de acuerdo al valor que tengo en esa celda de esa otra hoja??
Esto es lo que tengo:
ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("Tecnologia"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("Tecnologia")
.PivotItems("MULTEGO 4X2").Visible = False
.PivotItems("SCANIA PB").Visible = False
.PivotItems("VOLVO 9700 4X2").Visible = False
.PivotItems("VOLVO 9700 6X2").Visible = False
.PivotItems("VOLVO 9300").Visible = False
End With
With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("tecnologia"). _
CurrentPage = Hoja4.Range("j9")
End With
Lo que quiero es que el valor mostrado en la Pivot.Tablo sea el valor colocado en la hoja4 en la celda j9 pero no lo hace alguien me puede contribuir un aporte
Saludos!