Class related Stuff Userforms

[DocAElstein]

https://www.excelforum.com/excel-programming-vba-macros/1138300-vba-userform-value-check-if-user-form-buttons-checked-not-working-check-button-on-open.html#post4380955
https://www.excelforum.com/excel-programming-vba-macros/1138300-vba-userform-value-check-if-user-form-buttons-checked-not-working-check-button-on-open.html#post4380967
https://www.excelforum.com/excel-programming-vba-macros/1138300-vba-userform-value-check-if-user-form-buttons-checked-not-working-check-button-on-open.html#post4380992
https://www.excelfox.com/forum/showthread.php/2965-Class-related-Stuff-Userforms?p=24169&viewfull=1#post24169

---

Answer from Richard ( RIP (: )

Hi,

There's a lot to comprehend there. You'd be better advised to upload the workbook so that we can see this in context.
Clearly explain where you want to check for the condition of your option buttons.

However try something like

If UserForm1.OptionButton1 Then 
    '....your code if option button has been selected
Else
   ' Code (if any) if ob not selected
End If

Hi Richard


Thanks for the quick reply.
The File I gave a link to at the end of Post #1
( Sorry it is a bit too big to upload, and reducing the data is difficult as I explained. )

Also I showed where I Have the two required If 's
Sorry there was a lot there.
I was also sharing my Workaround, and trying to be as concise as possible.

Thanks very much for your code I will try it out
Alan

EDIT:
P.s.
Richard: I ammended the title after this was solved, as your answer was excactly what many people thought and indeed what I still Google. I know why. This will catch a lot of people out so I will do a last follow up Post to Explain
Alan

Hi Richard,

Ok I tried the demo code kike this following your suggestion,

Sub CheckOptionCheckCheckedCheck()
Dim v As Variant
Let v = ufResults.StatusBarNormal.Value
Let v = ufResults.OptionButton2.Value
Let v = ufResults.Refresh.Value
End Sub

That does not error. . - I guess I should have twigged to that. I never stop telling OP’s to fully reference things like Workbooks and Worksheets thus:
WB.
And
Ws.
Etc....

Logical that the same applies to User Form things
UserForm.
And that explains why of course it worked within the User Form ( ufResults ) codes!

_..................

But in the demo code, ( which I have in a normal module ) it gives False for
v
even if I check the Button StatusBarNormal


I also put this line,
Dim v: v = ufResults.StatusBarNormal.Value
in the
Private Sub Worksheet_Change(ByVal Target As Range)
In Sheet 1 ,
then
put a stop on it,
then
checked Button StatusBarNormal
then
initiated running of
Private Sub Worksheet_Change(ByVal Target As Range)
( by putting a number in any column C column where there is a Food in column A )

Then I Debug Mode F8 to go past
v
Then I hover to see what is in v , and it is still False, despite Button
StatusBarNormal
Being checked.

So I am not quite there yet....

I will keep at it

Thanks again for the reply

Alan