Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text = ("MgO") And TextBox3.Text = ("Mn") And TextBox5.Text = ("Zn") Then
        Label1.Caption = ("MgO") & TextBox2.Text & " " And Label1.Caption = ("Mn") & TextBox4.Text & " " And Label1.Caption = ("Zn") & TextBox6.Text & " "
End If
End Sub

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text = ("MgO") And TextBox3.Text = ("Mn") And TextBox5.Text = ("Zn") Then
        Label1.Caption = ("MgO") & TextBox2.Text & " " & "Mn" & TextBox4.Text & " " & "Zn" & TextBox6.Text & " "
End If
End Sub

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox5.Text <> "" Then
        Label1.Caption = TextBox1.Text & TextBox2.Text & " " & TextBox3.Text & TextBox4.Text & " " & TextBox5.Text & " " & TextBox6.Text
End If
End Sub