مساعدة فى شرح الامر

[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

 

تم تعديل نوفمبر 4, 2015 بواسطه heshamelnaggar

[ياسر العربى]

من المفترض يعني انه كود ترحيل بيانات

دا يوزر فورم في كام تكست بوكس وكومبوكس وزرارين

كل العمليه زرار بيرحل البيانات من التكست والكومبوكس الى الشيت في خلايا متحددة

وزرار بيخرج من اليوزر فورم

واي خدعة  

ومعاك مثال سريع كدا مرفق للموضوع دا

وبلاش الكلام المبهم دا ابقي اشرح طلبك عشان نقدر نساعدك

وياريت تغيير اسم الظهور في المنتدى للغة العربية لسهولة التعامل ولان اللغة العربية هي هويتنا ولابد من الحفاظ عليها

ومرحب بيك في منتدى اوفيسنا بين اخوانك

Book1.rar

تم تعديل نوفمبر 4, 2015 بواسطه ياسر العربى