Button to hide and unhide rows

**twofootgiant** · 08-13-2008, 03:52 AM

Good morning everyone

I need a button which, when clicked will hide rows 6&7. Also when its clicked the caption needs to change to 'Show Examples'.

After the rows have been hidden, when the button is clicked again the rows must become visible and the caption change back to 'Hide Examples'.

Obviously this should be looped so it can be clicked unlimited times.

Any ideas?

**Stuie** · 08-13-2008, 03:57 AM

Hi twofootgiant,

Try this code:

Private Sub btn1_Click()

Select Case btn1.Caption
    Case "Hide Examples"
        Range("A6").EntireRow.Hidden = True
        Range("A7").EntireRow.Hidden = True
        btn1.Caption = "Show Examples"
    
    Case "Show Examples"
        Range("A6").EntireRow.Hidden = False
        Range("A7").EntireRow.Hidden = False
        btn1.Caption = "Hide Examples"
         
End Select
End Sub

**twofootgiant** · 08-13-2008, 04:12 AM

Iv sorted it using:

If Rows("6:7").EntireRow.Hidden = False Then 
    Rows("6:7").EntireRow.Hidden = True 
Else 
    Rows("6:7").EntireRow.Hidden = False 
End If

Its just the caption changing bit I need now :D

**Stuie** · 08-13-2008, 04:15 AM

You can use this peice of code:

btn1.Caption =

just change btn1 to the button name and then the text after the = that you want it to say (but the code i posted i think would be more simple to amend in the future and potensionally give less space for error)

**twofootgiant** · 08-13-2008, 04:20 AM

thanks..That works perfectly

**Stuie** · 08-13-2008, 04:30 AM

No problem, glad i could help

**royUK** · 08-13-2008, 04:37 AM

This is a bit shorter

Option Explicit

Private Sub btn1_Click()
    Rows("6:7").EntireRow.Hidden = Not Rows("6:7").EntireRow.Hidden
    Select Case btn1.Caption
        Case "Show Examples": btn1.Caption = "Hide Examples"
        Case "Hide Examples": btn1.Caption = "Show Examples"
    End Select
End Sub

Thread: Button to hide and unhide rows

Thread Tools

Display

Button to hide and unhide rows

.

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions