UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

maxje


Hola saludos

Buenas tardes espero me puedan ayudar,necesito que mi macro al recorres las hojas del libro y de todas las tablas cambie mas de un campo region de la tabla,la que tengo solo me deja una y quiero cambiar Mes Ingreso y agregar otro mas.

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("A1")) Is Nothing Then
 
    Dim hoja As Worksheet
    Dim td As PivotTable
     
    'Recorrer todas las hojas del libro
    For Each hoja In ThisWorkbook.Worksheets
         
        'Recorrer las tablas dinámicas de la hoja
        For Each td In hoja.PivotTables
             
            'En base al campo Region de la tabla dinámica:
            
            With td.PivotFields("Mes Ingreso")
        
           
            
                'Limpiar todos los filtros
                .ClearAllFilters
                 
                'Filtrar por el valor de la celda F1
                On Error Resume Next
                .CurrentPage = Range("A1").Value
                 
            End With
           
         Next td
     Next
End If
 
End Sub

Igtelo


Hola Maxie.

Lee las normas del foro y recomendaciones para hacer preguntas, ya que esté en orden tu pregunta alguien te contestará.

Saludos
Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.