Snasui Excel Forum

Code: Select all

Private Sub OptionButton1_Click()
        If ComboBox4.Text <> "" Then
             TextBox5.Text = ComboBox4.Text
            Else
                OptionButton1 = False
                MsgBox " ท่านต้องเลือกค่า EER ก่อน ", vbExclamation, "ข้อมูลไม่ครบ"
                 'MsgBox (" ท่านต้องเลือก มากกว่า น้อยกว่า หรือเท่ากัน ก่อน ")
        End If
End Sub

Code: Select all

If ComboBox4.Text <> "" Then
    TextBox5.Text = ">" & ComboBox4.Text