Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Testing for hidden rows
Excel 2002, WinXP
I have a range of rows, say Rows("1:10"). These rows may ALL be hidden or none be hidden or some be hidden. I need to check, via VBA, if ALL the rows are hidden. The statement: If Rows("5:10").EntireRow.Hidden Then returns True if any one or more of the rows are hidden. I need to know if they are ALL hidden or not. The number of rows is fixed so I can count the number of hidden rows, if I knew how. How can I determine if ALL the rows are hidden? Thanks for your help. Otto |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Testing for hidden rows
Otto,
Sub TryNow() Dim i As Integer For i = 1 To 10 If Not Rows(i).Hidden Then MsgBox "Not all rows are Hidden." Exit Sub End If Next i MsgBox "All rows are Hidden." End Sub HTH, Bernie MS Excel MVP "Otto Moehrbach" wrote in message ... Excel 2002, WinXP I have a range of rows, say Rows("1:10"). These rows may ALL be hidden or none be hidden or some be hidden. I need to check, via VBA, if ALL the rows are hidden. The statement: If Rows("5:10").EntireRow.Hidden Then returns True if any one or more of the rows are hidden. I need to know if they are ALL hidden or not. The number of rows is fixed so I can count the number of hidden rows, if I knew how. How can I determine if ALL the rows are hidden? Thanks for your help. Otto |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Testing for hidden rows
Thanks Bernie, I was afraid it would take a row-by-row check like that.
Otto "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Otto, Sub TryNow() Dim i As Integer For i = 1 To 10 If Not Rows(i).Hidden Then MsgBox "Not all rows are Hidden." Exit Sub End If Next i MsgBox "All rows are Hidden." End Sub HTH, Bernie MS Excel MVP "Otto Moehrbach" wrote in message ... Excel 2002, WinXP I have a range of rows, say Rows("1:10"). These rows may ALL be hidden or none be hidden or some be hidden. I need to check, via VBA, if ALL the rows are hidden. The statement: If Rows("5:10").EntireRow.Hidden Then returns True if any one or more of the rows are hidden. I need to know if they are ALL hidden or not. The number of rows is fixed so I can count the number of hidden rows, if I knew how. How can I determine if ALL the rows are hidden? Thanks for your help. Otto |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Testing for hidden rows
Otto,
You don't _have_ to do it row by row. You can use the error produced by looking for visiblecells when all rows are hidden: Dim i As Integer On Error GoTo AllHidden i = Range("1:10").SpecialCells(xlCellTypeVisible).Coun t MsgBox "Some or all rows weren't hidden" Exit Sub AllHidden: MsgBox "All rows were hidden" HTH, Bernie MS Excel MVP "Otto Moehrbach" wrote in message ... Thanks Bernie, I was afraid it would take a row-by-row check like that. Otto "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Otto, Sub TryNow() Dim i As Integer For i = 1 To 10 If Not Rows(i).Hidden Then MsgBox "Not all rows are Hidden." Exit Sub End If Next i MsgBox "All rows are Hidden." End Sub HTH, Bernie MS Excel MVP "Otto Moehrbach" wrote in message ... Excel 2002, WinXP I have a range of rows, say Rows("1:10"). These rows may ALL be hidden or none be hidden or some be hidden. I need to check, via VBA, if ALL the rows are hidden. The statement: If Rows("5:10").EntireRow.Hidden Then returns True if any one or more of the rows are hidden. I need to know if they are ALL hidden or not. The number of rows is fixed so I can count the number of hidden rows, if I knew how. How can I determine if ALL the rows are hidden? Thanks for your help. Otto |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
opening a group but keep hidden rows hidden | Excel Discussion (Misc queries) | |||
Hidden rows columns won't stay hidden | Excel Worksheet Functions | |||
Formula or Code to keep Hidden Rows Hidden | Excel Worksheet Functions | |||
I need my Hidden Rows to stay hidden when I print the sheet. | Excel Discussion (Misc queries) | |||
Excel 2003 -Rows hidden. Scrolling unhides rows ! How do I stop th | Excel Discussion (Misc queries) |