ترحيل الدرجات من الفورم حسب الاسم بالشيت إضافة بسيطة لملف جاهز

[KHMB]

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

حسب الموضح بالعنوان / ترحيل الدرجات من الفورم حسب الاسم بالشيت إضافة بسيطة لملف جاهز

من الفورم ندخل الاسم ثم الدرجات والترحيل إلي الشهور في شيت كشف نسبة اعمال السنة

والملاحظ  الآتي

1- عند الترحيل لايرحل الدرجات إلي الشهور امام إسم الطالب فقط يرحلها في اول خليه فارغة من اعمدة الشهور وهلم جر.

2- يرحل حتى لو حقل إسم الطالب في الفورم فارغ

 

المطلوب /

عند إدخال إسم الطالب ثم الدرجات لكل شهر ثم الترحيل امام إسم الطالب فقط أي ان الكود يقارن او بحث عن الاسم اولا ويرحل البيانات إلي الاسم اينما كان لازم مربوط بالاسم

إن شاء الله اني قدرت اوصل ما اريده

 

وإذا شي غير واضح ارجوا منكم الإستفسار  وجزاكم الله خير.

اعمال السنة3.rar

[الصـقر]

تفضل استاذى الكريم

هل هذا هو طلبك انظر المرفق

اعمال السنة2+.zip

[KHMB]

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

اخي الفاضل الاستاذ حسام

نعم هذا المطلوب الباقي البسيط مثل المجموع لكي يبين النسبة وكذلك رساله في حالة ان مربع اسم الطالب فارغ كملتها.

جزاك الله خير وبارك فيك حفظك الله من كل مكروه انت ومن تحب

 

الداعي لك بالخير

اخيك / ابو الحسن والحسين 

[KHMB]

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

اخي حسام

لي ملاحظة مهمة جدا

من الملاحظ عند الترحيل يتم البحث عن اخر صف فارغ ويرتكز في ذلك علي العمود الرابع  D  اللي هو اكتوبر لو انك قمت بتعبئة  درجات كل الاشهر لاحد الطلبة ولنقول إسمة حسام عيسى ماعدا درجات اكتوبر وقمت بالترحيل فعند الرجوع الي الفورم مثلا لتكمل بقية درجات الطلبة فالمفترض الطبيعي ان يأتيك اول طالب بعد اللي بعد آخر طالب سجلتة سابقا فهنا قمنا مسبقا بتسجيل درجات الطالب حسام عيسى كل الاشهر الموجودة ماعدا شهر اكتوبر فرحلت بفى خلية شهر اكتوبر ففي المره القادمة سيظهر لك الطالب حسام عيسى لانة بيبحث عن آخر صف به بيانات في العمود D شهر اكتوبر فيتم نقل بيانات شهر اكتوبر ويتم نقل بيانات باقي الاشهر فوق البيانات السابقة. ان شاء الله قدرت اوصل المعلومة :

1- كيف نتلافى ذلك

2- هل هناك عند البحت في عمود عن آخر صف به بيانات نستطيع ان نبحث في اكثر من عمود بجانب بعض او متفرقة مثلا : If Textbox1.Text=" " Or Textbox1.Text=" " Textbox1.Text=" " ...etc

 الله يخيك كرما منك لا امرا ان تستفسر مني مره ومرتين وعشرين عن أي شي  ما قدرت انا ان اوصله صحيح.

وجزاك الله خير

[KHMB]

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

للرفع

[الصـقر]

استاذى الحبيب

هذا هو الكود المرتبط بزر الترحيل بالفورم

 
With ورقة4
هنا يقوم بالبحث عن اخر خليه بها بيانات بالعمود b  وهو المسجل به اسماء الطلبه
  Ln = .Cells(.Rows.Count, "b").End(xlUp).Row
هنا عمل حلقه تكرارية for   تبدأ من الصف 11  وهو اول صف به اسماء الطلبه الى اخر خليه بالعمود به بيانات 

  For I = 11 To Ln
هنا وضع الشرط لو التكست بوكس = خليه بالعمود b  ينفذ الترحيل 
 If Me.TextBox7.Value = CStr(.Cells(I, "b")) Then
.Cells(I, 4).Value = Me.TextBox1.Value
.Cells(I, 5).Value = Me.TextBox2.Value
.Cells(I, 6).Value = Me.TextBox3.Value
.Cells(I, 7).Value = Me.TextBox4.Value
.Cells(I, 8).Value = Me.TextBox5.Value
.Cells(I, 9).Value = Me.TextBox6.Value
هنا رساله بأتمام عملية الترحيل
MsgBox "ÊãÊ ÚãáíÉ ÇáÑÕÏ ÈäÌÇÍ", , "KHMB"
End If
Next
 End With
اخر شئ مسح التكست بوكس لادخال بيانات جديده
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox1.SetFocus

ارجوا ان يكون استفسارك واضح

وانا تحت امرك

تقبل تحياتى