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
Display More