Mixing
Deselecting option buttons when selected together
on my UserForm, I have created option buttons adjacent to the topic I want my users to choose i.e. if they choose "mechanical engineering" there is a "yes" option button or a "no" option button to the right of it. However, users cannot select classes "mechanical engineering" and "chemical engineering" together. I have entered the first code below which works. However, it only works if option button "Me.optFMME" and then "Me.optFMCE" in that order. If you choose them in the other order i.e."Me.optFMCE" and then "Me.optFMME", it allows it. So, I entered code (the second one undernearth it) to counteract this but it doesn't do anything.
Please if anyone has any guidance, it would be much appreciated.
Private Sub optFMME_Click()
If Me.optFMME And Me.optFMCE Then
MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar material. Please select another combination."
Me.optFMME = False
Me.optFMCE = False
End If
End Sub
`
Private Sub optFMCE_Click()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
excel vba excel-vba
edited Jan 7 at 8:48
Pᴇʜ
24.8k63052
asked Jan 2 at 16:42
MJ98MJ98
526
add a comment |
on my UserForm, I have created option buttons adjacent to the topic I want my users to choose i.e. if they choose "mechanical engineering" there is a "yes" option button or a "no" option button to the right of it. However, users cannot select classes "mechanical engineering" and "chemical engineering" together. I have entered the first code below which works. However, it only works if option button "Me.optFMME" and then "Me.optFMCE" in that order. If you choose them in the other order i.e."Me.optFMCE" and then "Me.optFMME", it allows it. So, I entered code (the second one undernearth it) to counteract this but it doesn't do anything.
Please if anyone has any guidance, it would be much appreciated.
Private Sub optFMME_Click()
If Me.optFMME And Me.optFMCE Then
MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar material. Please select another combination."
Me.optFMME = False
Me.optFMCE = False
End If
End Sub
`
Private Sub optFMCE_Click()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
excel vba excel-vba
edited Jan 7 at 8:48
Pᴇʜ
24.8k63052
asked Jan 2 at 16:42
MJ98MJ98
526
1
You should break out that logic into a separateSub. It's identical, so it should be in only one place. The order in checking the options (CE and ME vs ME and CE) should be irrelevant.
– PeterT
Jan 2 at 16:59
Hi Peter, thank you for your reply. As shown above I have put them in to different subs, or am I mistunderstanding? Sorry my skills within VBA are very limited.
– MJ98
Jan 2 at 17:01
1
You could give just a "Yes" option. A "No" option being the option box not clicked. The option buttons have aGroupNameproperty - only one button with the sameGroupNamecan be "Yes" at a time (a Null value in that property is a group as well).
– Darren Bartrup-Cook
Jan 2 at 17:14
Thank you, Darren! Very much Appreciated.
– MJ98
Jan 2 at 17:17
add a comment |
on my UserForm, I have created option buttons adjacent to the topic I want my users to choose i.e. if they choose "mechanical engineering" there is a "yes" option button or a "no" option button to the right of it. However, users cannot select classes "mechanical engineering" and "chemical engineering" together. I have entered the first code below which works. However, it only works if option button "Me.optFMME" and then "Me.optFMCE" in that order. If you choose them in the other order i.e."Me.optFMCE" and then "Me.optFMME", it allows it. So, I entered code (the second one undernearth it) to counteract this but it doesn't do anything.
Please if anyone has any guidance, it would be much appreciated.
Private Sub optFMME_Click()
If Me.optFMME And Me.optFMCE Then
MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar material. Please select another combination."
Me.optFMME = False
Me.optFMCE = False
End If
End Sub
`
Private Sub optFMCE_Click()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
excel vba excel-vba
edited Jan 7 at 8:48
Pᴇʜ
24.8k63052
asked Jan 2 at 16:42
MJ98MJ98
526
on my UserForm, I have created option buttons adjacent to the topic I want my users to choose i.e. if they choose "mechanical engineering" there is a "yes" option button or a "no" option button to the right of it. However, users cannot select classes "mechanical engineering" and "chemical engineering" together. I have entered the first code below which works. However, it only works if option button "Me.optFMME" and then "Me.optFMCE" in that order. If you choose them in the other order i.e."Me.optFMCE" and then "Me.optFMME", it allows it. So, I entered code (the second one undernearth it) to counteract this but it doesn't do anything.
Please if anyone has any guidance, it would be much appreciated.
Private Sub optFMME_Click()
If Me.optFMME And Me.optFMCE Then
MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar material. Please select another combination."
Me.optFMME = False
Me.optFMCE = False
End If
End Sub
`
Private Sub optFMCE_Click()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
excel vba excel-vba
excel vba excel-vba
edited Jan 7 at 8:48
Pᴇʜ
24.8k63052
asked Jan 2 at 16:42
MJ98MJ98
526
edited Jan 7 at 8:48
Pᴇʜ
24.8k63052
asked Jan 2 at 16:42
MJ98MJ98
526
edited Jan 7 at 8:48
Pᴇʜ
24.8k63052
edited Jan 7 at 8:48
Pᴇʜ
24.8k63052
edited Jan 7 at 8:48
Pᴇʜ
24.8k63052
24.8k63052
asked Jan 2 at 16:42
MJ98MJ98
526
asked Jan 2 at 16:42
MJ98MJ98
526
asked Jan 2 at 16:42
MJ98MJ98
526
526
1
You should break out that logic into a separateSub. It's identical, so it should be in only one place. The order in checking the options (CE and ME vs ME and CE) should be irrelevant.
– PeterT
Jan 2 at 16:59
Hi Peter, thank you for your reply. As shown above I have put them in to different subs, or am I mistunderstanding? Sorry my skills within VBA are very limited.
– MJ98
Jan 2 at 17:01
1
You could give just a "Yes" option. A "No" option being the option box not clicked. The option buttons have aGroupNameproperty - only one button with the sameGroupNamecan be "Yes" at a time (a Null value in that property is a group as well).
– Darren Bartrup-Cook
Jan 2 at 17:14
Thank you, Darren! Very much Appreciated.
– MJ98
Jan 2 at 17:17
add a comment |
1
You should break out that logic into a separateSub. It's identical, so it should be in only one place. The order in checking the options (CE and ME vs ME and CE) should be irrelevant.
– PeterT
Jan 2 at 16:59
Hi Peter, thank you for your reply. As shown above I have put them in to different subs, or am I mistunderstanding? Sorry my skills within VBA are very limited.
– MJ98
Jan 2 at 17:01
1
You could give just a "Yes" option. A "No" option being the option box not clicked. The option buttons have aGroupNameproperty - only one button with the sameGroupNamecan be "Yes" at a time (a Null value in that property is a group as well).
– Darren Bartrup-Cook
Jan 2 at 17:14
Thank you, Darren! Very much Appreciated.
– MJ98
Jan 2 at 17:17
1
1
You should break out that logic into a separate
Sub. It's identical, so it should be in only one place. The order in checking the options (CE and ME vs ME and CE) should be irrelevant.– PeterT
Jan 2 at 16:59
You should break out that logic into a separate
Sub. It's identical, so it should be in only one place. The order in checking the options (CE and ME vs ME and CE) should be irrelevant.– PeterT
Jan 2 at 16:59
Hi Peter, thank you for your reply. As shown above I have put them in to different subs, or am I mistunderstanding? Sorry my skills within VBA are very limited.
– MJ98
Jan 2 at 17:01
Hi Peter, thank you for your reply. As shown above I have put them in to different subs, or am I mistunderstanding? Sorry my skills within VBA are very limited.
– MJ98
Jan 2 at 17:01
1
1
You could give just a "Yes" option. A "No" option being the option box not clicked. The option buttons have a
GroupName property - only one button with the same GroupName can be "Yes" at a time (a Null value in that property is a group as well).– Darren Bartrup-Cook
Jan 2 at 17:14
You could give just a "Yes" option. A "No" option being the option box not clicked. The option buttons have a
GroupName property - only one button with the same GroupName can be "Yes" at a time (a Null value in that property is a group as well).– Darren Bartrup-Cook
Jan 2 at 17:14
Thank you, Darren! Very much Appreciated.
– MJ98
Jan 2 at 17:17
Thank you, Darren! Very much Appreciated.
– MJ98
Jan 2 at 17:17
add a comment |
1 Answer
1
active
oldest
votes
Your logic for checking the option buttons is identical, so it should be isolated into a separate function. In this way, you remain consistent in your logic and if something needs to be adjusted, it's all in one place.
Private Sub optFMME_Click()
LogicCheck
End Sub
Private Sub optFMCE_Click()
LogicCheck
End Sub
Private Sub LogicCheck()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together " & _
"due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
answered Jan 2 at 17:05
PeterTPeterT
4,39811031
Perfect. Thank you, Peter! Have a good day.
– MJ98
Jan 2 at 17:17
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f54010017%2fdeselecting-option-buttons-when-selected-together%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
Your logic for checking the option buttons is identical, so it should be isolated into a separate function. In this way, you remain consistent in your logic and if something needs to be adjusted, it's all in one place.
Private Sub optFMME_Click()
LogicCheck
End Sub
Private Sub optFMCE_Click()
LogicCheck
End Sub
Private Sub LogicCheck()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together " & _
"due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
answered Jan 2 at 17:05
PeterTPeterT
4,39811031
Perfect. Thank you, Peter! Have a good day.
– MJ98
Jan 2 at 17:17
add a comment |
Your logic for checking the option buttons is identical, so it should be isolated into a separate function. In this way, you remain consistent in your logic and if something needs to be adjusted, it's all in one place.
Private Sub optFMME_Click()
LogicCheck
End Sub
Private Sub optFMCE_Click()
LogicCheck
End Sub
Private Sub LogicCheck()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together " & _
"due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
answered Jan 2 at 17:05
PeterTPeterT
4,39811031
Perfect. Thank you, Peter! Have a good day.
– MJ98
Jan 2 at 17:17
add a comment |
Your logic for checking the option buttons is identical, so it should be isolated into a separate function. In this way, you remain consistent in your logic and if something needs to be adjusted, it's all in one place.
Private Sub optFMME_Click()
LogicCheck
End Sub
Private Sub optFMCE_Click()
LogicCheck
End Sub
Private Sub LogicCheck()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together " & _
"due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
answered Jan 2 at 17:05
PeterTPeterT
4,39811031
Your logic for checking the option buttons is identical, so it should be isolated into a separate function. In this way, you remain consistent in your logic and if something needs to be adjusted, it's all in one place.
Private Sub optFMME_Click()
LogicCheck
End Sub
Private Sub optFMCE_Click()
LogicCheck
End Sub
Private Sub LogicCheck()
If Me.optFMCE And Me.optFMME Then
MsgBox "Mech Eng and Chem Eng cannot be selected together " & _
"due to similar material. Please select another combination."
Me.optFMCE = False
Me.optFMME = False
End If
End Sub
answered Jan 2 at 17:05
PeterTPeterT
4,39811031
answered Jan 2 at 17:05
PeterTPeterT
4,39811031
answered Jan 2 at 17:05
PeterTPeterT
4,39811031
answered Jan 2 at 17:05
PeterTPeterT
4,39811031
4,39811031
Perfect. Thank you, Peter! Have a good day.
– MJ98
Jan 2 at 17:17
add a comment |
Perfect. Thank you, Peter! Have a good day.
– MJ98
Jan 2 at 17:17
Perfect. Thank you, Peter! Have a good day.
– MJ98
Jan 2 at 17:17
Perfect. Thank you, Peter! Have a good day.
– MJ98
Jan 2 at 17:17
add a comment |
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f54010017%2fdeselecting-option-buttons-when-selected-together%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
1
You should break out that logic into a separate
Sub. It's identical, so it should be in only one place. The order in checking the options (CE and ME vs ME and CE) should be irrelevant.– PeterT
Jan 2 at 16:59
Hi Peter, thank you for your reply. As shown above I have put them in to different subs, or am I mistunderstanding? Sorry my skills within VBA are very limited.
– MJ98
Jan 2 at 17:01
1
You could give just a "Yes" option. A "No" option being the option box not clicked. The option buttons have a
GroupNameproperty - only one button with the sameGroupNamecan be "Yes" at a time (a Null value in that property is a group as well).– Darren Bartrup-Cook
Jan 2 at 17:14
Thank you, Darren! Very much Appreciated.
– MJ98
Jan 2 at 17:17