hiding showing columns using checkboxes
Hoping someone can help - I'm sure this is simple - I just can't get i
to work I have 2 checkboxes to show and hide information - from browsing thi forum I have come up with the following: Private Sub CheckBox1_Click() Dim r As Range Set r = Range("G1:H1") r.EntireColumn.Hidden = Not r.EntireColumn.Hidden End Sub Private Sub CheckBox2_Click() Dim r As Range Set r = Range("M1:AM1") r.EntireColumn.Hidden = Not r.EntireColumn.Hidden End Sub Both of these work fine idependently - however when I check one and no the other sometimes it works and sometimes it doesn't. What I am looking to do is the following if cbox1 is true and cbox2 is true it needs to show columns a-l,an-aw if cbox1 is false and cbox2 is true it needs to show column a-f,j-l,an-ap if cbox1 is true and cbox2 is false it needs to show everything if cbox 1 is false and cbox2 is false it needs to show column a-f,j-o,r-x,aa-ag,aj-ap I have tried various if/then statements but the results still are no consistent any suggestions are appreciate -- Message posted from http://www.ExcelForum.com |
hiding showing columns using checkboxes
Ronda,
It seems to me that you need more checkboxes to get the all the combos you've specified here. I don't see how you can get your last set of columns (both boxes false) with just the ranges you've specified. Other than that, I think the code below might give you more consistent results because checked will always mean hidden: Private Sub CheckBox1_Click() Dim r As Range Set r = Range("G1:H1") r.EntireColumn.Hidden = CheckBox1 End Sub Private Sub CheckBox2_Click() Dim r As Range Set r = Range("M1:AM1") r.EntireColumn.Hidden = CheckBox2 End Sub hth, Doug Glancy "ronda " wrote in message ... Hoping someone can help - I'm sure this is simple - I just can't get it to work I have 2 checkboxes to show and hide information - from browsing this forum I have come up with the following: Private Sub CheckBox1_Click() Dim r As Range Set r = Range("G1:H1") r.EntireColumn.Hidden = Not r.EntireColumn.Hidden End Sub Private Sub CheckBox2_Click() Dim r As Range Set r = Range("M1:AM1") r.EntireColumn.Hidden = Not r.EntireColumn.Hidden End Sub Both of these work fine idependently - however when I check one and not the other sometimes it works and sometimes it doesn't. What I am looking to do is the following if cbox1 is true and cbox2 is true it needs to show columns a-l,an-aw if cbox1 is false and cbox2 is true it needs to show columns a-f,j-l,an-ap if cbox1 is true and cbox2 is false it needs to show everything if cbox 1 is false and cbox2 is false it needs to show columns a-f,j-o,r-x,aa-ag,aj-ap I have tried various if/then statements but the results still are not consistent any suggestions are appreciated --- Message posted from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 10:23 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com