How to set default Values for a Userfrom and call the Userform

[PETLECLS1]

When I click the button that calls up the userform, the userform comes up, but none of the default values I have picked show. I am using Excel 2010.

How do I fix my code?

Sub NewTranslationRequest()'Fill Default Data
 OptionButton1 = True
 OptionButton2 = False
 OptionButton3 = False
 OptionButton4 = True
 OptionButton5 = False
 OptionButton6 = True
 OptionButton7 = False
 OptionButton8 = True
 OptionButton9 = True
 OptionButton10 = False
 OptionButton11 = True
 CheckBox1 = True
 CheckBox2 = True
 CheckBox3 = True
 CheckBox4 = True
 CheckBox5 = False
 CheckBox6 = False
 CheckBox7 = False
 
 'Clear previous data
 ComboBox1 = ""
 TextBox4 = ""
 TextBox1 = ""
 TextBox2 = ""
 TestBox3 = ""
UserFormNewRequest.Show
End Sub

 

[Fluff]

You need to set the values in an initialize event

Private Sub UserForm_Initialize()
OptionButton1 = True
OptionButton2 = False
OptionButton3 = False
OptionButton4 = True
OptionButton5 = False
OptionButton6 = True
OptionButton7 = False
OptionButton8 = True
OptionButton9 = True
OptionButton10 = False
OptionButton11 = True
CheckBox1 = True
CheckBox2 = True
CheckBox3 = True
CheckBox4 = True
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
End Sub

 

[RoryA]

If you want default values, you can set them at design time. Alternatively, you need to qualify the controls with the userform object

Sub NewTranslationRequest()'Fill Default Data
With UserFormNewRequest
.OptionButton1 = True
.OptionButton2 = False
.OptionButton3 = False
.OptionButton4 = True
.OptionButton5 = False
.OptionButton6 = True
.OptionButton7 = False
.OptionButton8 = True
.OptionButton9 = True
.OptionButton10 = False
.OptionButton11 = True
.CheckBox1 = True
.CheckBox2 = True
.CheckBox3 = True
.CheckBox4 = True
.CheckBox5 = False
.CheckBox6 = False
.CheckBox7 = False

'Clear previous data
.ComboBox1 = ""
.TextBox4 = ""
.TextBox1 = ""
.TextBox2 = ""
.TestBox3 = ""
.Show
end with
End Sub

 

[PETLECLS1]

Thanks guys! I had to tweak it a little as I had a typo and added an extra option button. But the code works now!

Sub NewTranslationRequest()
'Fill Default Data
With UserFormNewRequest
.OptionButton1 = True
.OptionButton2 = False
.OptionButton3 = False
.OptionButton4 = True
.OptionButton5 = False
.OptionButton6 = True
.OptionButton7 = False
.OptionButton8 = True
.OptionButton9 = True
.OptionButton10 = False
.CheckBox1 = True
.CheckBox2 = True
.CheckBox3 = True
.CheckBox4 = True
.CheckBox5 = False
.CheckBox7 = False
.CheckBox8 = False

'Clear previous data
.ComboBox1 = ""
.TextBox4 = ""
.TextBox1 = ""
.TextBox2 = ""
.TextBox3 = ""
.Show
End With
End Sub