Consulting

Results 1 to 3 of 3

Thread: Solved: Test if rows are hidden

  1. #1
    VBAX Master
    Joined
    Jun 2006
    Posts
    1,091
    Location

    Solved: Test if rows are hidden

    I know how to loop through every row and test if they are hidden but is it possible to test every row in one shot (I dont want to loop because a worksheet could be thousands of rows and it will take a really long time). All I want is for it to return a true value if possible.
    Thank You,
    Daniel Blois
    http://studenthacker.blogspot.com/

  2. #2
    Distinguished Lord of VBAX VBAX Grand Master Bob Phillips's Avatar
    Joined
    Apr 2005
    Posts
    25,443
    Location
    [vba]

    Sub ClassTest()
    Dim rng As Range

    Set rng = Range("A1:A100")

    If rng.SpecialCells(xlCellTypeVisible).Rows.Count = rng.Rows.Count Then

    MsgBox "No rows hidden"
    Else

    MsgBox "Some rows hidden"
    End If
    End Sub
    [/vba]
    ____________________________________________
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  3. #3
    VBAX Master
    Joined
    Jun 2006
    Posts
    1,091
    Location
    Thank you that worked perfectly
    Thank You,
    Daniel Blois
    http://studenthacker.blogspot.com/

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •