Running A Macro for Specific Rows Only

[TJC86]

Hi,

I'm sure this is really simple but I can't figure it out for the life of me. I have the following Macro:

Sub UnhideRow1()
Dim i As Long
If columns("A").SpecialCells(xlCellTypeVisible).Count = rows.Count Then Exit Sub
i = 1
Do Until rows(i).Hidden = True
i = i + 1
Loop
rows(i).Hidden = False
End Sub


It works okay, but I only want it to work for rows 50:77 as I have hidden rows after that which I don't want to unhide.

How can I limit the macro to run just for these rows. I've been all over Google and can't get it to work.

Thank you!!

 

[hateme28]

what are you trying to do exactly? count the hidden rows in range 50-77?

 

[TJC86]

I have hidden rows, and by clicking a button I want to be able to unhide the next hidden row, just 1 at a time, but for the macro not to unhide anything before row 50 or after row 77.

It works fine unhiding each row one at a time, but it carries on past row 77.

 

[Rick Rothstein]

I have hidden rows, and by clicking a button I want to be able to unhide the next hidden row, just 1 at a time, but for the macro not to unhide anything before row 50 or after row 77.

It works fine unhiding each row one at a time, but it carries on past row 77.

Question... could Row 49 ever be hidden?

 

[TJC86]

Sorry, I meant Unhide anything Between rows 49 and 77.

Apologies, long day!

Thanks for your help.

 

[Rick Rothstein]

Sorry, I meant Unhide anything Between rows 49 and 77.

Between is a tricky word... should Rows 49 and 77 be included or excluded along with Rows 50 to 76?

Whichever, I am interested in knowing if the row before the first row you want the ability to unhide could ever be hidden.

 

[TJC86]

Yes, row 48 could be hidden. Sorry if I'm not explaining well!

If rows 50:77 are hidden, then unhide at the click of the button one at a time, but if I click and it's row 90 that's hidden, don't unhide it!

 

[Rick Rothstein]

If rows 50:77 are hidden, then unhide at the click of the button one at a time

Okay, now I am back to my first question... can Row 49 ever be hidden?

 

[TJC86]

Yes, it can be hidden.

 

[Rick Rothstein]

Yes, it can be hidden.

Okay, give this macro a try...

Sub ShowFirstHiddenRow()
  If Rows(50).Hidden Then
    Rows(50).Hidden = False
  Else
    On Error Resume Next
    With Range("A49:A77").SpecialCells(xlVisible)
      .Areas(1)(.Areas(1).Count).Offset(1).EntireRow.Hidden = False
    End With
    On Error GoTo 0
  End If
End Sub