crear macro que pueda seleccionar un elemento de una tabla dinámica cada vez

2 envíos / 0 nuevos
Último envío
ARODRIGU
Imagen de ARODRIGU
Offline
última acción: Hace 3 años 2 meses
Nivel 1 - 200 puntos
alta: 30/06/2010 - 14:08
Puntos: 260
crear macro que pueda seleccionar un elemento de una tabla dinámica cada vez

Hola:

Tengo un listado de "numeros de teléfonos de origen" con su duración en horas, minutos y segundos y a que "números de destino" han llamado. Tengo que hacer un resumen por Nª de Origen e imprimirlo en PDF por separado. A través de una tabla dinámica he resumido la información que necesito. Ahora me falta crear una macro en la que pueda ir seleccionando los distintos "números de Origen" e ir imprimiéndolo. Lo he intentado pero siempre me sale el mismo "número de Origen" ¿se puede automatizar este trabajo? Tengo más de 400 números de Origen.

gracias

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 42 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7590
Re: crear macro que pueda seleccionar un elemento de una ...

imagino que el número de teléfono para el que quieres filtrar los datos de la tabla dinámica está en el filtro de informe

filtro de informe, o filtro de página de una tabla dinámica

prueba a establecer el valor del filtro de informe con CurrentPage para el campo teléfono

 

algo así (para la hoja activa, con una sóla tabla dinámica):

    Dim hoja As Worksheet, tabladinamica As PivotTable, campopagina As PivotItem

    Set hoja = ActiveSheet 

    Set tabladinamica = hoja.PivotTables(1) 

    With tabladinamica.PivotFields("teléfono")

        For Each campopagina In .PivotItems

            .CurrentPage = campopagina.Name

           'ahora das los pasos que necesites...

        Next

    End With

    Set hoja = Nothing

    Set tabladinamica = Nothing

    Set campopagina = Nothing

 

 

Data Tools Suite
datos y tablas con Excel