Filas y columnas ocultas

Hola fejoal soy yo de nuevo...
Mi pregunta es la siguiente:
¿Cómo puedo contar las filas y columnas ocultas de una tabla de excel desde visual basic?...
Se supone que hago una selección con MyArea y de toda la selección quiero saber el numero de filas y columnas ocultas...
Un saludo de SpeedCAD... :-)
1

1 respuesta

Respuesta
1
LAs siguientes son dos funciones definidas por usuario (UDF) que cuentan las filas y las celdas oculatas en un rango:
Function CuentaFilaO(MyRange As Range)
Dim rCell As Range
Dim vSum
For Each rCell In MyRange
If rCell.EntireRow.Hidden Then vSum = vSum + 1
Next rCell
Calculate
CuentaFilaO = vSum
End Function
Function CuentaColO(MyRange As Range)
Dim rCell As Range
Dim vSum
For Each rCell In MyRange
If rCell.EntireColumn.Hidden Then vSum = vSum + 1
Next rCell
Calculate
CuentaColO = vSum
End Function
---
Es decir que podrás ingresarlas como fórmulas en la hoja. Si la necesitabas como una rutina dentro de una macro toma el loop For...next y captura el valor d ela variable vSum.
Espero que te ayude.
Un abrazo!
Fernando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas