Obtener Rangos de celda

No sé si te he entendido bien, pero, por ejemplo, el siguiente código devolverá la dirección de la celda que tiene el "Total general" de la tabla situada en Hoja2:

With Worksheets("Hoja2").PivotTables(1)
MsgBox .DataBodyRange.Cells(.DataBodyRange.Cells.Count).Address
End With

Y para devolver los números de fila y de columna:

With Worksheets("Hoja2").PivotTables(1)
MsgBox "Fila: " & .DataBodyRange.Cells(.DataBodyRange.Cells.Count).Row & vbNewLine & "Columna: " & .DataBodyRange.Cells(.DataBodyRange.Cells.Count).Column
End With

suponiendo siempre que están activados los totales por filas y columnas. Si no fuera así, el código devolvería la celda inferior derecha de la tabla.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Carlos Rey" escribió en el mensaje news:

Buenas Noches,

Mi consulta es la siguiente:

Cómo obtener el rango o referencia en el que se encuentra un resultado
"Grand Total" dentro de una tabla dinámica?? es decir que me devuelva número
de fila y número de columna en el que esta el valor...

Saludos,
Carlos Rey