كود طباعة لكل تسلسل الاسماء من نتائج معادلة vlookp من قائمة بمجموعة اسماء

[خليل القيسي]

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

هل فية كود يعمل الكلام دة ولالأ

مرفق الشيت والنموذج وكمان المعادلة 

المعادلة تعطي ثلاث نتائج لكل طالب انا عملتها .

1- اسم الطالب 

2- اسم الحلقة

3- اسم المعلم او المعلمة 

اصل التقارير والاسماء عدد الاوجه.xlsx

[Ali Mohamed Ali]

اهلا بك فى المنتدى-تفضل تم عمل المطلوب بهذا الكود

Sub ØÈÇÚÉ1()
    Sheets("استمارة متابعة").Activate
     Range("H2").Activate
[H2] = 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do
ActiveCell = ActiveCell + 1
ActiveWindow.SelectedSheets.PrintOut
Loop While ActiveCell.Value <= Range("x2").Value
  Range("H2").Activate
[H2] = 1
End Sub

 

طباعة كل الأسماء.xlsm

[خليل القيسي]

السلام عليكم استاذ علي لك جزيل الشكر علي المجهود الكبير وبارك الله فيك .

لي طلب اخير في حالة نقص عدد الطلاب او زيادة عدد الطلاب كيف اتحكم في العدد في هذا الكود 

وشكرا

وكذلك  وجد حاجة خطاء بعد الضغط علي طباعة الكل كيفية الايقاف

وممكن انقل لكود ازاي علي الشيت اللي عندي الاساسي من فضلك لانة بيجي خطأ  

 

[Ali Mohamed Ali]

فقط عليك للصق اى كود بملف معين

عليك بالضغط عل Alt +F11 ثم فتح مديول جديد ولصق هذا الكود به

او عليك برفع الملف الأصلى لك لمشاهدة المشكلة التى تحدث معك عن قرب

[خليل القيسي]

السلام عليكم الي حضرتك جميع الملفات بس ليا طلب ممكن اتعلم منك ازاي اعمل الكود ولا

اصل التقارير والاسماء عدد الاوجه.xlsxاصل التقارير والاسماء عدد الآيات.xlsx

[Ali Mohamed Ali]

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

فللتعلم لابد من مشاهدة فيديوهات كثيرة على اليوتيوب خاصة بالماكرو وهذه الموضوعات

 

 

اصل التقارير والاسماء عدد الاوجه2.xlsm اصل التقارير والاسماء عدد الآيات.xlsm

[خليل القيسي]

شكرا استاذ استاذ علي