As the title says, I have Label2 and Textbox2 on UserForm1. I want the value of this textbox to appear on TextBox1 (same userform) with Label1 showing first.
Note, there are other values on the textbox1 other than the textbox2 value.
Below is my code to show values of other functions to TextBox1.
Code
- Sub FillTextBox()
- With TextBox1
- .Value = ""
- If CheckBox1 Or CheckBox2 Or CheckBox3 Or CheckBox4 Or CheckBox5 Then .Value = Label1.Caption & vbCr
- If CheckBox1 Then .Value = .Value & "• " & CheckBox1.Caption & vbCr
- If CheckBox2 Then .Value = .Value & "• " & CheckBox2.Caption & vbCr
- If CheckBox3 Then .Value = .Value & "• " & CheckBox3.Caption & vbCr
- If CheckBox4 Then .Value = .Value & "• " & CheckBox4.Caption & vbCr
- If CheckBox5 Then .Value = .Value & "• " & CheckBox5.Caption & vbCr
- '
- If CheckBox7 Or CheckBox8 Or CheckBox9 Or CheckBox10 Or CheckBox11 Then .Value = .Value & Label2.Caption & vbCr
- If CheckBox7 Then .Value = .Value & "• " & CheckBox7.Caption & vbCr
- If CheckBox8 Then .Value = .Value & "• " & CheckBox8.Caption & vbCr
- If CheckBox9 Then .Value = .Value & "• " & CheckBox9.Caption & vbCr
- If CheckBox10 Then .Value = .Value & "• " & CheckBox10.Caption & vbCr
- If CheckBox11 Then .Value = .Value & "• " & CheckBox11.Caption & vbCr
- '
- If ComboBox1.ListIndex > -1 Then .Value = .Value & "Will " & ComboBox1.Value
- End With
- End Sub
- ''Below are my sample codes to call FillTextBox
- Private Sub CheckBox9_Click()
- Call FillTextBox
- End Sub
- Private Sub ComboBox1_Change()
- Call FillTextBox
- End Sub