Unhiding Rows One at A Time Using VBA Macro

**JuneTwentyFourteen** · 01-15-2016, 11:32 AM

I am currently attempting to build a macro that unhides hidden rows one at a time upon the click of a button.

I have got as far as using the following code, but this unhides all rows at the same time.

PHP Code:


Sub Sheet4_TextBox1_Click()

 Rows("4:33").Select

    Selection.EntireRow.Hidden = False

End Sub

I want to have about 100 rows to be hidden and to be unhidden one at a time.

Is this possible?

Thanks

Col

**mo4391** · 01-15-2016, 11:56 AM

Try this:

Sub UnhideRow()

Dim r As Range
Dim c As Range

Set r = Range("A:A")

For Each c In r
    If c.EntireRow.Hidden = True Then
        c.EntireRow.Hidden = False
        Exit Sub
    End If
Next c

MsgBox("There are no hidden rows in this sheet")

End Sub

**YasserKhalil** · 01-15-2016, 12:01 PM

Try this line of code

Rows("4:33").EntireRow.Hidden = Not Rows("4:33").EntireRow.Hidden

**JuneTwentyFourteen** · 01-18-2016, 04:35 AM

Thanks for your help.

**YasserKhalil** · 01-18-2016, 04:55 AM

You're welcome. Thanks for the feedback and for the rep points

Unhiding Rows One at A Time Using VBA Macro

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Unhiding Rows One at A Time Using VBA Macro

Re: Unhiding Rows One at A Time Using VBA Macro

Re: Unhiding Rows One at A Time Using VBA Macro

Re: Unhiding Rows One at A Time Using VBA Macro

Re: Unhiding Rows One at A Time Using VBA Macro

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] macro for hiding and unhiding rows based on a dropdown selection and cell value

hiding unhiding rows macro hierarchy

Hiding/Unhiding rows

Hiding and unhiding rows

[SOLVED] Unhiding Rows

hidden rows keep unhiding themselves!

unhiding rows automatically

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions