VBA To Hide And Unhide Rows

Hi

Columns D to P (group 1)
Columns Q to AA (group 2)
Columns AB to AI (group 3)
Is there a VBA/macro I can use where it hides these Columns Groups .Each group is assigned to a Button so I can hide/unhide…example:each button would be labelled according to there Group number and diplays either hide or unhide depending the state
I can hide/unhide any 1 group, both groups or all groups at any one time
I will like the buttons to be situated in Column A and in order going down the column

Any help appreciated



Paul


https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=SIDLFRkUEIo&lc=UgzTF5vvB67Zbfs9qvx4AaABAg
https://www.youtube.com/watch?v=v_1iqtOnUMg&lc=UgxLtKj969oiIu7zNb94AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=Ugxq4JHRza_zx3sz0fx4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=Ugxq4JHRza_zx3sz0fx4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=UgzMCQUIQgrbec400jl4AaABAg
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=Ugz0Uy2bCSCTb1W-0_14AaABAg
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugx12mI-a39T41NaZ8F4AaABAg.9iDQqIP56NV9iFD0AkeeJG
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugxa2VYHMWJWXA6QI294AaABAg. 9irLgSdeU3r9itU7zdnWHw
https://www.youtube.com/watch?v=tPRv-ATUBe4&lc=UgzFkoI0n_BxwnwVMcZ4AaABAg
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=Ugz0Uy2bCSCTb1W-0_14AaABAg.9htChVuaX9W9htG01cKBzX
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=Ugw6UrV69zpeKvLOeOV4AaABAg. 9ht16tzryC49htJ6TpIOXR
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=UgwMKwGZpDjv7vi7pCx4AaABAg
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=Ugw6UrV69zpeKvLOeOV4AaABAg. 9ht16tzryC49htOKs4jh3M
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=UgxVW-am20rQ5GFuJ9F4AaABAg
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Hi Paul,

PFA.

Hi Paul

PFA

Regards
Prince

Thanks

Each row of code less to be read enhances the performance of that code.
So the light versions

Code:

---

Private Sub ToggleButton1_Click()
    Const Group1 = "D:P"
    Range(Group1).EntireColumn.Hidden = Not Range(Group1).EntireColumn.Hidden
    Me.ToggleButton1.Caption = IIf(Range(Group1).EntireColumn.Hidden, "Group 1 Unhide", "Group 1 Hide")
End Sub

Private Sub ToggleButton2_Click()
    Const Group2 = "Q:AA"
    Range(Group2).EntireColumn.Hidden = Not Range(Group2).EntireColumn.Hidden
    Me.ToggleButton2.Caption = IIf(Range(Group2).EntireColumn.Hidden, "Group 2 Unhide", "Group 2 Hide")
End Sub

Private Sub ToggleButton3_Click()
    Const Group3 = "AB:AI"
    Range(Group3).EntireColumn.Hidden = Not Range(Group3).EntireColumn.Hidden
    Me.ToggleButton3.Caption = IIf(Range(Group3).EntireColumn.Hidden, "Group 3 Unhide", "Group 3 Hide")
End Sub

---

Code:

---

Public Sub HideUnhide()
    With ActiveSheet
        Select Case Application.Caller
            Case "btnGrp1":
                .Columns("D:P").Hidden = Not .Columns("D:P").Hidden
            Case "btnGrp2":
                .Columns("Q:AA").Hidden = Not .Columns("Q:AA").Hidden
            Case "btnGrp3":
                .Columns("AB:AI").Hidden = Not .Columns("AB:AI").Hidden
            Case "btnGrpAll":
                .Columns("D:AI").Hidden = Not .Columns("D:AI").Hidden
        End Select
    End With
End Sub

---

Hi

I keep getting error - "Run Time Error 13" - Type Mismatch when using this code

Do I need to use a certain type of Button - which is best Button to select
I put the code into a Module

Code:

---

Public Sub HideUnhide()
    With ActiveSheet
        Select Case Application.Caller
            Case "btnGrp1":
                .Columns("D:P").Hidden = Not .Columns("D:P").Hidden
            Case "btnGrp2":
                .Columns("Q:AA").Hidden = Not .Columns("Q:AA").Hidden
            Case "btnGrp3":
                .Columns("AB:AI").Hidden = Not .Columns("AB:AI").Hidden
            Case "btnGrpAll":
                .Columns("D:AI").Hidden = Not .Columns("D:AI").Hidden
        End Select
    End With
End Sub

---

Thanks

For reference.

Well done!

Thank you bakerman, you did a fine job.

Could you please use the same file to hide & unhide specific rows instead of colmuns.

Thank you and your efforts are appreciated in advance.

MSABRA

Replace this

Code:

---

.Columns("D:P").Hidden = Not .Columns("D:P").Hidden

---

by this

Code:

---

.Rows("10:15").Hidden = Not .Rows("10:15").Hidden

---

If you rename the button "btnGrpAll" into "btnGrp4" this code suffices:

Code:

---

Public Sub HideUnhide()
    With ActiveSheet.Columns(Choose(Right(Application.Caller, 1), "D:P", "Q:AA", "AB:AI", "D:AI"))
      .Hidden = Not .Hidden
    End With
End Sub

---

And for rows.

Code:

---

Public Sub HideUnhide()
    'Rows
    With ActiveSheet.Rows(Choose(Right(Application.Caller, 1), "10:12", "15:20", "25:35", "40:45"))
      .Hidden = Not .Hidden
    End With
End Sub

---

@snb
Nice to meet you here too
bakerman (aka Warme bakkertje)


https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=SIDLFRkUEIo&lc=UgzTF5vvB67Zbfs9qvx4AaABAg
https://www.youtube.com/watch?v=v_1iqtOnUMg&lc=UgxLtKj969oiIu7zNb94AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=Ugxq4JHRza_zx3sz0fx4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=Ugxq4JHRza_zx3sz0fx4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=UgzMCQUIQgrbec400jl4AaABAg
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=Ugz0Uy2bCSCTb1W-0_14AaABAg
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugx12mI-a39T41NaZ8F4AaABAg.9iDQqIP56NV9iFD0AkeeJG
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugxa2VYHMWJWXA6QI294AaABAg. 9irLgSdeU3r9itU7zdnWHw
https://www.youtube.com/watch?v=tPRv-ATUBe4&lc=UgzFkoI0n_BxwnwVMcZ4AaABAg
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=Ugz0Uy2bCSCTb1W-0_14AaABAg.9htChVuaX9W9htG01cKBzX
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=Ugw6UrV69zpeKvLOeOV4AaABAg. 9ht16tzryC49htJ6TpIOXR
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=UgwMKwGZpDjv7vi7pCx4AaABAg
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=Ugw6UrV69zpeKvLOeOV4AaABAg. 9ht16tzryC49htOKs4jh3M
https://www.youtube.com/watch?v=LuAipOW8BNQ&lc=UgxVW-am20rQ5GFuJ9F4AaABAg
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA