Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Or _
ComboBox2.Value = "" Or _
ComboBox3.Value = "" Or _
ComboBox4.Value = "" Or _
TextBox1.Value = "" Or _
TextBox2.Value = "" Or _
TextBox3.Value = "" _
Then
MsgBox "VA RUGAM SA COMPLETATI TOATE CASUTELE"
Else
UserForm2.Label2.Caption = "Schimb : " _
& vbCrLf & "" & vbCrLf & "Operator : " _
& vbCrLf & "" & vbCrLf & "Utilaj : " _
& vbCrLf & "" & vbCrLf & "Reper : " _
& vbCrLf & "" & vbCrLf & "Total piese efectuate : " _
& vbCrLf & "" & vbCrLf & "Rebut : " _
& vbCrLf & "" & vbCrLf & "Minute lucrate : " _
& vbCrLf & "" & vbCrLf & "Operator 1 : " _
& vbCrLf & "" & vbCrLf & "Operator 2 : " _
& vbCrLf & "" & vbCrLf & "Operator 3 : " _
& vbCrLf & "" & vbCrLf & "Operator 4 : " _
& vbCrLf & "" & vbCrLf & "Actiune finalizata : "
UserForm2.Label3.Caption = UserForm1.ComboBox1.Value _
& vbCrLf & "" & vbCrLf & UserForm1.ComboBox2.Value _
& vbCrLf & "" & vbCrLf & UserForm1.ComboBox3.Value _
& vbCrLf & "" & vbCrLf & UserForm1.ComboBox4.Value _
& vbCrLf & "" & vbCrLf & UserForm1.TextBox1.Value _
& vbCrLf & "" & vbCrLf & UserForm1.TextBox2.Value _
& vbCrLf & "" & vbCrLf & UserForm1.TextBox3.Value _
& vbCrLf & "" & vbCrLf & UserForm1.TextBox4.Value
End If
UserForm2.Show
End Sub