Checkbox Code

[Smurfit-Stone]

Hello Board,

I need code or a formula for a group of three checkboxes I have on a user form. I have checkboxes that if checkbox 1 is checked I want 0 hours to show in cell F13, if checkbox 2 is checked I want 3 hours to show in cell F13, if checkbox 3 is checked I want 6 hours to show in cell F13. So I don't know if I need a macro or an (IF) formula in cell F13. Can anyone help.....I'd greatly appreciate it. Thanks in advance.

 

[Norie]

What if more than one checkbox is checked?

 

[Smurfit-Stone]

then I'd need an textbox with an error message or make it so only one checkbox can be selected. If you select checkbox 1 then select checkbox 3...checkbox 1 would become unchecked...etc.

 

[Norie]

Why not use option buttons instead?

Then only 1 option can be picked.

 

[Smurfit-Stone]

Ok, how do I do that

 

[Norie]

I just created 3 option buttons from the Forms toolbar.

I then created this code in a new module.

Sub Options()
    Select Case Application.Caller
        Case "Option Button 1"
            x = 0
        Case "Option Button 2"
            x = 3
        Case "Option Button 3"
            x = 6
    End Select
    Range("F13") = x
    
End Sub

I then used Assign Macro... to associate each option button with the code.

Is that the sort of thing you are looking for?

 

[Smurfit-Stone]

I created the buttons, typed the code in a module and assigned the buttons to the macro. Then when I check any of the controls, I get an "type mismatch" error and its highlights the line of code (Case "Option Button 1"). What should I do now? Thanks in advance.