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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 08:37 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com