Tengo una tabla dinámica que esta conectada a la base de datos de SAP de mi empresa, tengo entendido que es una conexión mediante cubo. Sin embargo, estoy creando una macro para que me cambie los filtros en funcion a cambios en el valor de una celda, si esta cambia, se debe cambiar el filtro. Pero me arroja error en la instruccion .currentpage
If Not Intersect(Target, Range("F1")) Is Nothing Then
'En base al campo Nombre de la Tabla dinámica:
With PivotTables("Tabla dinámica5").CubeFields(4).PivotFields( _
"[Clientes].[Nombre].[Nombre]")
'Limpiar todos los filtros
.ClearAllFilters
'Filtrar por el valor de la celda F2
On Error Resume Next
.CurrentPage = Range("F2").Value
End With
End If
End Sub
Si realizo una grabación de la macro, para seleccionar un cliente, el código que me entrega es el siguiente:
'ActiveSheet.PivotTables("Tabla dinámica5").CubeFields(4).EnableMultiplePageItems = True
' ActiveSheet.PivotTables("Tabla dinámica5").PivotFields( _
' "[Clientes].[Nombre].[Nombre]").VisibleItemsList = Array( _
' "[Clientes].[Nombre].&[ABAST. DEL COMERCIO ADELCO LTD]")
pero la instruccion Visibleitemslist al parecer no la considera VBA para seleccionar un dato, o quizas ma falta la instruccion para deseleccionar todos los clientes, y luego seleccionar el cliente especifico.
Agradezco su ayuda
Mil gracias