Hide multiple checkboxes when a row is hidden

Hello Hello,

I am using 5 option buttons to hide columns D, E, F, G, H respectively. What i am trying to achieve is that if option button 1 is selected, only column D appears - containing multiple Checkboxes. When option button 2 is selected, only column E appears, containing multiple checkboxes (different from those in the previous column) and so on and so on...

I managed to hide/unhide the columns, the problem i am facing now is that the chceckboxes "float" and never dissapear. At the moment i am using this (for option button 1 & column D):

Sub uno()
'
' uno Macro
' uno
'
' Keyboard Shortcut: Ctrl+u
'
Columns("E:H").Select
Range("H1").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("D:D").Select
Selection.EntireColumn.Hidden = False
Range("D12").Select
End Sub

I am very very new at this, is there anything i can add to this to make the checkboxes hide/unhide together with the columns? Or do i need to change the whole thing? I wouldn't be surprised if there was a better option...

many many thanks in advance ,
regards,
dana

I'd guess you could do something like:

Sub hide_unhide_checkboxes()
Dim chkbx
For Each chkbx In ActiveSheet.CheckBoxes
    If Columns(chkbx.TopLeftCell.Column).Hidden = True Then chkbx.Visible = False Else chkbx.Visible = True
Next
End Sub

I might be doing it wrong, but it doesn't seem to work

I attach the .xls, any suggestion i can do?

I think it didn't work because all the checkboxes started in column C, if you unhide all the columns and then move them all slightly right so they are completely within column D it should work ok.

ok, i moved them completely to column D. Do i assign the code to one of the chcekboxes or where do i paste it? i am sorry, i am very new to this.

many thanks for your help Yudlugar

Your module should be something like:

Sub uno()
'
' uno Macro
' uno
'
' Keyboard Shortcut: Ctrl+u
'
Columns("E:H").Select
Range("H1").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("D:D").Select
Selection.EntireColumn.Hidden = False
Range("D12").Select
call hide_unhide_checkboxes
End Sub

Sub hide_unhide_checkboxes()
Dim chkbx
For Each chkbx In ActiveSheet.CheckBoxes
    If Columns(chkbx.TopLeftCell.Column).Hidden = True Then chkbx.Visible = False Else chkbx.Visible = True
Next
End Sub

Many thanks Yudlugar,

you are a genius this worked... the checkboxes move according to the column in shich they appear. The problem is that they don't hide/unhide, instead they just appear on top of each other. How to make them hide/unhide please ?

It might be best to try unhiding/hiding them before you hide the columns. It seems you can get it to work providing that you have them set up in precisely the right location, it should be more forgiving the other way:

Sub tres()
'
' tres Macro
' 3
'
' Keyboard Shortcut: Ctrl+t
'
Dim chkbx
    Columns("A:H").Hidden = False
For Each chkbx In ActiveSheet.CheckBoxes
    chkbx.Visible = False
Next chkbx
Call hide_unhide_checkboxes(4)
Call hide_unhide_checkboxes(5)
Call hide_unhide_checkboxes(7)
Call hide_unhide_checkboxes(8)
Range("D1:E1,G1:H1").EntireColumn.Hidden = True

End Sub
Sub cuatro()
'
' cuatro Macro
' 4
'
' Keyboard Shortcut: Ctrl+c
'
Dim chkbx
    Columns("A:H").Hidden = False
For Each chkbx In ActiveSheet.CheckBoxes
    chkbx.Visible = False
Next chkbx
Call hide_unhide_checkboxes(4)
Call hide_unhide_checkboxes(5)
Call hide_unhide_checkboxes(6)
Call hide_unhide_checkboxes(8)
Range("D1,F1:H1").EntireColumn.Hidden = True

End Sub
Sub pat()
'
' pat Macro
' 5
'
' Keyboard Shortcut: Ctrl+p
'
Dim chkbx
    Columns("A:H").Hidden = False
For Each chkbx In ActiveSheet.CheckBoxes
    chkbx.Visible = False
Next chkbx
Call hide_unhide_checkboxes(4)
Call hide_unhide_checkboxes(5)
Call hide_unhide_checkboxes(6)
Call hide_unhide_checkboxes(7)
Range("D1:G1").EntireColumn.Hidden = True

End Sub
Sub uno()
'
' uno Macro
' uno
'
' Keyboard Shortcut: Ctrl+u
'
Dim chkbx
    Columns("A:H").Hidden = False
For Each chkbx In ActiveSheet.CheckBoxes
    chkbx.Visible = False
Next chkbx
Call hide_unhide_checkboxes(5)
Call hide_unhide_checkboxes(6)
Call hide_unhide_checkboxes(7)
Call hide_unhide_checkboxes(8)
Range("E1:H1").EntireColumn.Hidden = True

End Sub
Sub dos()
'
' dos Macro
' 2
'
' Keyboard Shortcut: Ctrl+d
'
Dim chkbx
    Columns("A:H").Hidden = False
For Each chkbx In ActiveSheet.CheckBoxes
    chkbx.Visible = False
Next chkbx
Call hide_unhide_checkboxes(4)
Call hide_unhide_checkboxes(6)
Call hide_unhide_checkboxes(7)
Call hide_unhide_checkboxes(8)
Range("D1,F1:H1").EntireColumn.Hidden = True
End Sub
Sub hide_unhide_checkboxes(col_num As Integer)
Dim chkbx
For Each chkbx In ActiveSheet.CheckBoxes
    If chkbx.TopLeftCell.Column = col_num Then chkbx.Visible = False Else chkbx.Visible = True
Next
End Sub

Sorry, I think you will need to approach it with a different method then, it worked ok for me.

i used Form Control Checboxes, which might have been a problem. Changen them to ActiveX Controls, everything works..."Like a Boss".

Many thanks for your help and pacience Yudlugar, you are a hero.