VBA code for hide/unhide separate rows

[mare23]

Hi everyone!

Is there any VBA code for hide/unhide separate rows. for example
When I click - button once hide all rows from 23-31 and when I click the - button a second time hide rows 14-22
When I click + button once unhide all rows from 14 -22 and when I click the + button a second time hide rows 23-31


Thx
Mare

 

[Fluff]

My pleasure.

 

[mare23]

Hi! Could you tell me code if I have 2 more rows 32:40 and 41:49 where should I put in code above?

 

[Fluff]

Depends on what you want to do.

 

[mare23]

You send me formula for hide/unhide rows
14:22
23:31
Now I want 2 more extra
32:40
41:39
When I click the button “-“ hide 14:22
When I click second time hide 23:31
When I click third time hide 32:40
Or vice versa when I click button “+”

 

[Fluff]

That is now a sufficiently different question, so you will need to start a new thread. Thanks

 

[mare23]

I'm a little confused. The only difference is that it would add new rows to the existing formula.

 

[Fluff]

Yes but it needs totally different code as you know want to click multiple times with a different action each time, rather than a simple toggle.

 

[mare23]

Ok, thx

 

[RandyD123]

Option Explicit

Private bToggleMINUS As Boolean
Private bTogglePLUS  As Boolean

Public Sub Btn_MINUS()
    If Not bToggleMINUS Then
        Me.Rows("26:53").Hidden = True
        Me.Rows("82:107").Hidden = True
        Me.Rows("137:161").Hidden = True
        Me.Rows("191:215").Hidden = True
        Me.Rows("244:269").Hidden = True
        Me.Rows("299:323").Hidden = True
    End If
    bToggleMINUS = Not bToggleMINUS
End Sub

Public Sub Btn_PLUS()
    If Not bTogglePLUS Then
        Me.Rows("26:53").Hidden = False
        Me.Rows("82:107").Hidden = False
        Me.Rows("137:161").Hidden = False
        Me.Rows("191:215").Hidden = False
        Me.Rows("244:269").Hidden = False
        Me.Rows("299:323").Hidden = False
    End If
    bTogglePLUS = Not bTogglePLUS
End Sub

I am using the above code to hide a group of rows, but I have to hit each button twice for it to hide and unhide everything. Is there a way to make it happen with just one click?

 

[Fluff]

Please start a new thread for this question. Thanks