Clicking Checkbox unclicks the other Checkbox

[Arlyd]

Hey,

I really need you guy's help for a project at work:

I've googled alot and all I've found is radio Buttons do the job straight away if you group them but I've made a mistake in making my document with Tick-Boxes and spending hours programming these tickboxes to do exactly what I need! I'm not really able to change the way my excel sheet works with ease anymore, it'd take me a long time which doesn't complement my deadline!

So I've got a question and then two check-boxes. One which says "pass" and one which says "fail". At the moment, everything works perfectly apart from I have the option of checking them both at the same time which is not right.

Can anyone tell me a macro/VB script that I can set up to trigger when clicking a check-box. I want it to check the other box and if the other box is checked, remove it.

Also, I want to make a button that clears all the answers that are checked. A reset button. Can anyone please explain how I can do that? I think it's going to be a VB script and I don't know anything at all about how to use VB!!!

Thanks all!

Daryl

[Solus Rankin]

Are the checkboxes on a userform or a sheet?

[Arlyd]

Hi,

I'm using a sheet.

Thanks

[Solus Rankin]

If you don't have a macro assigned to the checkbox, try assigning this to one:

Sub IfYouAreImNot1()

    If ActiveDocument.FormFields("Check1").CheckBox.Value = True Then
        ActiveDocuments.FormFields("Check2").CheckBox.Value = False
    Else:
        ActiveDocuments.FormFields("Check2").CheckBox.Value = True
    End If
    
End Sub

and this to the other:

Sub IfYouAreImNot2()

    If ActiveDocument.FormFields("Check2").CheckBox.Value = True Then
        ActiveDocuments.FormFields("Check1").CheckBox.Value = False
    Else:
        ActiveDocuments.FormFields("Check1").CheckBox.Value = True
    End If
    
End Sub

This is assuming the names of your checkboxes are Check1 and check2. Change if necessary.