heshamelnaggar

Private Sub ComboBox2_Change() End Sub Private Sub CommandButton1_Click() If TextBox2.Value = "" Then MsgBox "áã ÊÞã ÈæÖÚ ÊÇÑíÎ ", 524304, "ÊäÈíå": Exit Sub LR = Range("A" & Rows.Count).End(xlUp).Row Cells(LR + 1, 1).Value = Application.Text(TextBox2.Value, "dd/mm/yyyy") Cells(LR + 1, 2).Value = ComboBox2.Value Cells(LR + 1, 3).Value = TextBox1.Value Cells(LR + 1, 4).Value = ComboBox1.Value Cells(LR + 1, 5).Value = TextBox3.Value Cells(LR + 1, 8).Value = TextBox4.Value Cells(LR + 1, 9).Value = TextBox5.Value For i = 1 To 5 Me.Controls("TextBox" & i).Value = "" Me.Controls("ComboBox" & i).Value = "" Next End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub TextBox4_Change() End Sub Private Sub UserForm_Click() End Sub