Filas y columnas ocultas

Hola SpeedCAD

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