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
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
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
------
Ya sé Excel, pero necesito más.