Testing/Finding .Hidden for Rows May21
Hi All,
2 Questions follow,
This seems simple, but I'm not seeing it.
Below #2 is an excerpt from a bigger function.
1. Is there a quicker way to find rows that are hidden
within a larger row range, or is this about the
only way?
for row = x to y
if rows(row).hidden then .....
next row
I looked at .Find with the formats it can find but
.Hidden is a property, so , no go.
2. I do not understand why the If stmt below evaluated true
when all of rows 1 thru 10, inclusive, were not hidden.
Function Rows_HiddenQtyFV2(Ws As Worksheet, FMrow As Long, _
TOrow As Long, Optional bWantOutput As Boolean = False, _
Optional OutAyOrRng As Variant = "", _
Optional bExit1stHidn As Boolean = False, _
Optional INrowsQty As Long = 0) As Long
With Ws
INrowsQty = Abs(TOrow - FMrow) + 1
'FMrow was 10, TOrow was 1
' In the sheet rows 1 AND 10 were hidden, 2-9 not hidden.
If .Rows(FMrow & ":" & TOrow).Hidden = True Then
'more code here,
'don't all of them have to be hidden for "True"
End if
End With
'more code here to value the function
End Function
Thanks
--
Neal Z
|