VBA Autofill text box

[dgingrey]

I am pretty new to programming and I sure this isn't that complicated but I can't find anything to tell be how to do it so hopefully someone here can help. I am putting together a user form that will draw off a workbook to build a quote that can be given to customers. What I need for now is when I check a box I need the textbook in the form to autopopulate with an assigned text. Example I have domestic and export machines. I have two checkboxes. One reads Domestic and one Export. If this is an export machine and I check that box I need the message box next to it to display "Non Assembled Unit". Likewise if I check domestic it should read "Fully Assembled". If both are are selected or neither are selected the text box should read select one.

Thanks

[Solus Rankin]

Here is the basic format. This will have to be saved in the userform module. You will also have to change the names of the checkboxes/textboxes etc to match the names you set up in your userform. A separate but similar sub will have to be created for your other checkboxes.

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        textbox1.Value = "Domestic"
    ElseIf CheckBox1.Value = False Then
        textbox1.Value = ""
    End If
End Sub

[dgingrey]

Thank you. A secondary question to this is how do I get it to automatically fill the information up. Right now I have to click on the text box and hit a key as if I was going to enter data manually and then it will override what I type and enter the data the it was supposed to autofill.

[Solus Rankin]

The code above should automate everything when the checkbox is clicked. Did you place the code in the userform module?

Can you attach your workbook so we can make adjustments?

[dgingrey]

I attached it. As you can see

Private Sub CommandButton1_Click()
    TextBox2 = Format(Val(TextBox1) + Val(TextBox3), "Currency")
End Sub

Private Sub TextBox1_Change()
            If CheckBox1.Value = True Then
            TextBox1.Value = "1"
            ElseIf CheckBox1.Value = False Then
            TextBox1.Value = ""
            End If
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()
        If CheckBox2.Value = True Then
        TextBox3.Value = "2"
        ElseIf CheckBox2.Value = False Then
        TextBox3.Value = ""
        End If
End Sub

Private Sub UserForm_Activate()

End Sub

Private Sub UserForm_Click()

End Sub

I have three text boxes and two check boxes. When I select the checkbox it is supposed to display the value assigned to the textbox. The end goal is going to be that when you select checkbox one it will give you a price in one textbox and notes in a yet to be added textbox next to it therefore creating a pricing sheet. I am just in the beginning stages of experimentatio Then which is why I changed them to numeric resposonses and added a calculate button as opposed to the text that I gave you in the post. But when I check checkbox1 textbox 1 doesn't automatically go to 1 until I type something in it which is where my problem currently lies.

[dgingrey]

Sorry the attached one had some extra code in it from an old experiment I deleted it and brought it back to what I orginally had. Open the smaller of the two attached files the code in it should match what I had posted.

[Solus Rankin]

Private Sub Checkbox1_Change()
            If CheckBox1.Value = True Then
            TextBox1.Value = "1"
            ElseIf CheckBox1.Value = False Then
            TextBox1.Value = ""
            End If
End Sub

Private Sub Checkbox2_Change()
        If CheckBox2.Value = True Then
        TextBox3.Value = "2"
        ElseIf CheckBox2.Value = False Then
        TextBox3.Value = ""
        End If
End Sub