VBA Excel Userform - Updating a Label

[wageslave101]

I am working with a userform that has;

OptionButton1, OptionButton2, OptionButton3
TextBox1, TextBox2
Label1

I'm trying to get the Label1.Caption to update, based on the OptionButtons being selected and details being added to the TextBox.

For example the user might select OptionButton2, Enter text into TextBox1 and TextBox2.

I'd like this to display "OptionButton2, Textbox1, Textbox2" in the Label1.Caption which will then be copied to a string to be pasted elsewhere.

I'm trying to get the Label1.Caption to update as the OptionButtons or Textboxes are changed so that it is evident before they commit the record to the spreadsheet.

Any thoughts?

Cheers,
Wageslave101

 

[Lewiy]

Try this. In the UserForm code put this:

Private Sub OptionButton1_Click()
CheckOptions
End Sub

Private Sub OptionButton2_Click()
CheckOptions
End Sub

Private Sub OptionButton3_Click()
CheckOptions
End Sub

Private Sub TextBox1_Change()
CheckOptions
End Sub

Private Sub TextBox2_Change()
CheckOptions
End Sub

Then in a standard module put this:

Sub CheckOptions()
Dim myString As String
myString = ""
With UserForm1
    If .TextBox1.Value <> "" Then myString = myString & "TextBox1 "
    If .TextBox2.Value <> "" Then myString = myString & "TextBox2 "
    If .OptionButton1 Then myString = myString & "OptionButton1 "
    If .OptionButton2 Then myString = myString & "OptionButton2 "
    If .OptionButton3 Then myString = myString & "OptionButton3 "
    .Label1.Caption = myString
End With
End Sub

Hope that helps!