Userform help

[Excelnoobisme]

Hi, i have a simple userform with 2 optionbutton ans 2 textbox.

How can i if, i select the 1st optionbutton the 2 textbook will grey out and lock but when i select the 2nd optionbutton the 2 textbook will unlock

 

[Trevor G]

Use an if statement behind each option button based on change events, like this

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> OptionButton1_Change()<br><SPAN style="color:#00007F">If</SPAN> Me.OptionButton1.Value = <SPAN style="color:#00007F">True</SPAN> <SPAN style="color:#00007F">Then</SPAN><br>Me.TextBox1.Locked = <SPAN style="color:#00007F">True</SPAN><br>Me.TextBox2.Locked = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">Else</SPAN><br>Me.TextBox1.Locked = <SPAN style="color:#00007F">False</SPAN><br>Me.TextBox2.Locked = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Excelnoobisme]

Thanks, but why is it that when i switch to optionbutton2 i still cant edit textbox after selecting option1button1 1st?

 

[Trevor G]

You can set the if statement behind both option buttons like this

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> OptionButton1_Change()<br><SPAN style="color:#00007F">If</SPAN> Me.OptionButton1.Value = <SPAN style="color:#00007F">True</SPAN> <SPAN style="color:#00007F">Then</SPAN><br>Me.TextBox1.Locked = <SPAN style="color:#00007F">True</SPAN><br>Me.TextBox2.Locked = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">Else</SPAN><br>Me.TextBox1.Locked = <SPAN style="color:#00007F">False</SPAN><br>Me.TextBox2.Locked = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br><br><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> OptionButton2_Change()<br><SPAN style="color:#00007F">If</SPAN> Me.OptionButton2.Value = <SPAN style="color:#00007F">True</SPAN> <SPAN style="color:#00007F">Then</SPAN><br>Me.TextBox1.Locked = <SPAN style="color:#00007F">True</SPAN><br>Me.TextBox2.Locked = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">Else</SPAN><br>Me.TextBox1.Locked = <SPAN style="color:#00007F">False</SPAN><br>Me.TextBox2.Locked = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[mikerickson]

If there are only the two option buttons, OptionButton1_Change will run anytime that OptionButton2 is clicked.
This is all the code that is needed.

Private Sub OptionButton1_Change()
    TextBox1.Enabled = OptionButton2.Value
End Sub

 

[Excelnoobisme]

Sorry, i dont know where went go. Still same problems, when i switch to optionbutton2 i cant edit textbox after selecting option1button1 1st

 

[mikerickson]

Hi, i have a simple userform with 2 optionbutton ans 2 textbox.

Oops. The code above got the action of the option buttons wrong way 'round and ignored TextBox 2.
Put this in the userform's code module.

Private Sub OptionButton1_Change()
    TextBox1.Enabled = OptionButton2.Value
    TextBox2.Enabled = OptionButton2.Value
End Sub