Button to unhide one hideden row each time its pressed

[tonywatsonhelp]

Hi Everyone,
I need a mmacro that when run does this

Looks at the range D21:D50
Finds Last row with data in it (must be last row with range D21:D50 as there stuff above and below it)
then unhides the next row
so for example when you start D22:D50 will be hidden
you press the button,
If D21 is empty it does nothing but if D21 <> "" then unhide D22
abd so on until it gets to D50
If there are no more rows to unhide messagebox "All rows have been used"

please help if you can

Thanks

Tony

 

[aRandomHelper]

Not sure if I got your requirements right.

Try:

Sub me1158757()
    Dim i As Long
    Application.ScreenUpdating = False
    Rows("21:50").Hidden = True
    For i = 21 To 49
        If Cells(i, "D").Value <> "" Then
            Rows(i + 1).Hidden = False
        End If
    Next
    Application.ScreenUpdating = True
    If Cells(50, "D").Value <> "" Then MsgBox "All rows have been used"
End Sub