VBA Code Hide/Unhide columns with Checkboxes

[Marty1]

Hello Everyone,

This is my first time to the forum and newbie to Excel VBA.
I have a userform labels role_selection with 6 checkboxes. Each checkbox with the caption labels as follow: Revenues, Erevenues, Occupancy, ADR, EADR and RevPAR.
These checkboxes refers to a tab where I have all the datas to hide / unhide

My question is how can i write a program to determine which checkbox is selected (true or false) and hide boxes which are unchecked (and unhide the selected boxes).

I basically need a vba code that I can assign to a command button as follows:

Hide entire columns: AI:AX

If cell BC3 = TRUE, then unhide AJ and AR columns
If cell BC4 = TRUE, then unhide AK and AS columns
If cell BC5 = TRUE, then unhide AL and AT columns
If cell BC6 = TRUE, then unhide AM and AU columns
If cell BC7 = TRUE, then unhide AN and AV columns
If cell BC8 = TRUE, then unhide AO and AW columns

Thanks you very much for your help

 

[Damon Ostrander]

Hi Marty1,

This code should do it:

With Worksheets("myworksheet")
   .Columns("AI:AX").Hidden = True
   If Range("BC3") = True Then
      .Columns("AJ").Hidden = False
      .Columns("AR").Hidden = False
   End If
   If Range("BC4") = True Then
      .Columns("AK").Hidden = False
      .Columns("AS").Hidden = False
   End If
   If Range("BC5") = True Then
      .Columns("AL").Hidden = False
      .Columns("AT").Hidden = False
   End If
   .
   .
   .
End With

where myworksheet is the name of the worksheet containing the data you want to hide/unhide.

Keep Excelling.

Damon

 

[mikerickson]

"This is my first time to the forum."
No its not. You posted the same question three days ago.

Did my reply help?
http://www.mrexcel.com/forum/showthread.php?t=572240