فورم إدخال بيانات

[laggari]

السلام عليكم و رحمة الله تعالى و بركاته

أريد عمل فورم إدخال بيانات و ترحيل

كشف الحضور.xlsx

[حسين مامون]

بعد ادن الاستاد 

ونحن جالسين الايام دي 

فلا مانع في محاولة

انظر المرفق

كشف الحضور.xlsm

[سليم حاصبيا]

كود ممتاز استاذ حسين 

لكن اسمح لي بهذه الملاحظة ،اذ لا لزوم للحلقات التكرارية لتعبئة الكومبوبوكس

هذا الكود يفي بالغرض

Option Explicit

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Dim lr, ctr As Object
Dim sh As Worksheet
Set sh = Sheets("المستفيد")
lr = sh.Cells(Rows.Count, "a").End(xlUp).Row + 1
    
If TextBox1 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or TextBox2 = "" Then _
MsgBox "عفوا يجب تعبئة جميع الحقول", vbInformation: Exit Sub

With sh.Range("A" & lr)
  .Value = TextBox1.Value
  .Offset(, 1) = ComboBox1.Value
  .Offset(, 2) = ComboBox2.Value
  .Offset(, 3) = TextBox2.Value
End With
'يجب التوضيح هنا ربما يكون لدينا 50 كومبوبوكس و تكس بوكس فهل نذكرها كلها؟
For Each ctr In Me.Controls

  If TypeName(ctr) = "TextBox" Or _
   TypeName(ctr) = "ComboBox" Then
   ctr.Value = vbNullString
  End If
Next
End Sub
'++++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub UserForm_Initialize()
   Dim sh As Worksheet
   Dim sh2 As Worksheet
  
  Set sh2 = Sheets("الشهر")
  Set sh = Sheets("المستفيد")

ComboBox1.List = sh.Range("H5", sh.Range("H4").End(4)).Value
ComboBox2.List = sh2.Range("A2", sh2.Range("A1").End(4)).Value


End Sub

 

[حسين مامون]

استاد سليم

انت معلم 

ربنا يحفظك ويزيدك من فضله

[فايز ياسين]

السلام عليكم

الاكواد للاساتذة الكرام شغالة وما فيها اي مشكلة 

يمكن بدك اياها في صفحة الواجهة

يمكن نقلها بكل سهوله

كشف الحضور.xlsm

[laggari]

اريده بهذا الشكل .... ملاحظة كلمة المرور 123

123.xlsm

[حسين مامون]

حاولت تحميل ملفك ولك لا يفتح معي اعد تحميل الملف ولكن بدون كلمة سر 

مع شرح واضح لما تريد 

[عبدالفتاح في بي اكسيل]

اخي  الكريم  اذا  اردت المساعدة  لاتصعب  الامور على الاساتدة   حتى يستطيعوا مساعدتك   لا تقوم بوضع رقم سري   دخلت برنامجك  ولكن  لم تربط قائمة الكومبوبكس  باي اسماء  فكيف تريد  ان ترحل منها  ولا يوجد فيها بيانات  كما لديك خطا في كتابة الكومبوبوكس في  الكود  كما  قال الاخ حسين نريد شرح واضح

[Akram-Al-Qifi]

تفضل أخي اخي  laggari طالما وأنت لم توضح الطلب بشكل مفصل

فأتمنى أن يفيدك هذا الملف

https://drive.google.com/file/d/1SsJvZlvtYrDmGbLOjVYPLvzWpgRMtcVM/view

وعليك مراجعة الشرح عبر الرابط التالي

 

 

وأتمنى أن يستفيد منه الجميع

 

[laggari]

إختر أي إسم و أدخل 123

[laggari]

Akram-Al-Qifi لم يفتح معي

[Akram-Al-Qifi]

اخي الكريم شاهد الفيديو عبر رابط اليوتيوب

ففية شرح مفصل ليفية تنصيبة على جهازك فهو أداة يتم تنصيبها في الاكسل وليس ملف اكسل فلا تستطيع فتحة بضغطتين

واتمنى ان تكون المعلومة وصلت

[laggari]

Akram-Al-Qifi

ليس هذا ما ابحث غنه