Obtener Rangos de celda

19/07/2005 - 04:31 por Carlos Rey | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
19/07/2005 - 09:21 | Informe spam
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


Respuesta Responder a este mensaje
#2 Carlos Rey
21/07/2005 - 04:24 | Informe spam
Buenas Noches,

Es precisamente lo que estaba buscando Fernando..

Muchas Gracias por el apoyo,

Cordial saludo.

CR


"Fernando Arroyo" escribió en el mensaje
news:%
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


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida