dim lStartRow as long, lLastRow as long, wsData as worksheet, rngArea as range, rngRow as range
set wsData = thisworkbook.worksheets("mysheet")
lStartRow = 1
lLastRow = wsData.Cells.Find(What:="*", _
After:=wsData.Range("A1"), _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
for each rngArea in wsData.range(lStartRow & ":" & lLastRow).SpecialCells(xlCellTypeVisible).Areas
for each rngRow in rngArea.rows
msgbox "Row " & rngRow.row & " is visible"
next rngRow
next rngArea
Comments
0 B
|👍
/👎
0 B
|👍
/👎