filas ocultas

Por ejemplo, para poner la palabra "Oculta" en la columna Z de todas las filas de la hoja activa que estén ocultas en el momento de ejecutar el código:

Sub MarcarFilasOcultas()
Dim rngF As Range

For Each rngF In ActiveSheet.UsedRange.Rows
If rngF.Hidden Then ActiveSheet.Range("Z" & rngF.Row) = "Oculta"
Next rngF

Set rngF = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"marisa" escribió en el mensaje news:

Alguien sabe si hay alguna manera de poder seleccionar todas las lineas ocultas en un excel. necesito ponerlas una marca a todas pero las tengo intercaladas entre otras que no estan ocultas y son un monton. gracias