Alguien puede decirme cómo puedo encontrar todas las tablas dinámicas en un libro u hoja)? En algunos casos una tabla dinámica puede ser ocultos o difíciles de encontrar en una gran hoja de excel. Si por lo menos pudiera obtener la dirección de la celda o rango de donde la tabla dinámica(s) de/es, eso sería genial.

Gracias.

InformationsquelleAutor Juan Velez | 2011-12-14

2 Comentarios

  1. 6

    Esto debería funcionar para usted. Imprime los resultados en la ventana Inmediato:

    Sub FindPivotTables()
        Dim wst As Worksheet
        Dim pvt As PivotTable
        ' loop through all sheets and print name & address of all pivot tables
        For Each wst In ActiveWorkbook.Worksheets
            For Each pvt In wst.PivotTables
                Debug.Print wst.Name, pvt.TableRange2.Address, pvt.Name
            Next pvt
        Next wst
    End Sub
    
    • Funciona! Thankss.
  2. 0

    Cada hoja de cálculo se debe exponer un PivotTables colección; puede recorrer a través de cada hoja de cálculo buscando las hojas que tienen un .PivotTables.Count > 0 y, a continuación, el bucle a través de la PivotTables en que sheeet para encontrar la que está buscando:

    Sub Test()
    
        Dim pTable As pivotTable
    
        Dim ws As Worksheet
    
        For Each ws In ActiveWorkbook.Worksheets
    
            Dim pivotTableCount
    
            pivotTableCount = ws.PivotTables.Count
    
            If pivotTableCount > 0 Then
    
                For Each pTable In ws.PivotTables
    
                     Dim pivotTableName As String
                     pivotTableName = pTable.Name
    
                     Dim pivotTableTopLeftCell As String
                     pivotTableTopLeftCell = pTable.Location
    
                Next pTable 
    
            End If
    
    
    
        Next ws
    
    
    End Sub
    
    • Este código no funciona y no devuelve ninguna información. También, las declaraciones que no se debe hacer más y más dentro de los bucles.
    • Se perdió el copiar y pegar de error (¡gracias!); de lo contrario, se trabajó muy bien – de hecho, aparte de la pivotTableCount de verificación, nuestro código es el mismo en términos de bucles. Quería demostrar a la OP de dos cosas; la hoja de cálculo de bucle y el eje de la colección de tablas, así como mostrar algunas de las propiedades típicas. Yo esperaría que alguien esté dispuesto a f8 a través del código para ver cómo cada uno de los bits de las obras. Su punto acerca de la declaración de variables en los bucles es interesante, aunque lo que realmente puede depender. Yo prefiero declarar variables cerca de donde yo los uso para mejorar la legibilidad Y ámbito de aplicación, especialmente en las grandes módulos.
    • He upvoted para los más concisa solución, aunque 🙂

Dejar respuesta

Please enter your comment!
Please enter your name here