
filtrar gráfico dinámico con VBA
Publicado por Eliab (1 intervención) el 27/09/2017 07:09:51
Buenas noches, tengo un gráfico dinámico generado desde power pivot. Lo que pasa que quiero que cambie el filtro de vendedor según se seleccione en el rango("a4:b13"). Para ello, el campo de Vendedor es idéntico a los datos que figuran en el filtro del gráfico dinámico.
He trabajado la siguiente macro:
El problema es que si pongo "nombre" (sin comillas) en vez de [BABARIA] me sale error.
Ojalá puedan ayudarme.
Gracias desde ya por sus comentarios.
He trabajado la siguiente macro:
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Fill = ActiveCell.Row
col = ActiveCell.Column
If Fill >= 4 And Fill <= 13 And col >= 1 And col <= 2 Then
nombre = "[" & Range("A" & Fill) & "]"
ActiveSheet.ChartObjects("Gráfico 3").Activate
ActiveChart.PivotLayout.PivotTable.PivotFields( _
"[MaestroTrabajador].[Apellidos].[Apellidos]").VisibleItemsList = Array( _
"[MaestroTrabajador].[Apellidos].&[BABARIA]") 'acá en vez de [BABARIA] se debe insertar el nombre del vendedor que se está seleccionando.
End If
End Sub
El problema es que si pongo "nombre" (sin comillas) en vez de [BABARIA] me sale error.
Ojalá puedan ayudarme.
Gracias desde ya por sus comentarios.
Valora esta pregunta


0