طباعة أرقام الجلوس

[ناصرالمصرى]

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

شكرا مقدما على مجهوداتكم التى ستقدمونها إبتغاء مرضاة الله

الكود التالى لآحد السادة الزملاء الافاضل هنا وهو فى الاساس لطباعة أرقام جلوس الطلبة

حاولت التعديل عليه ليتوافق مع غرضا أخر لكنى لم أستطع ذلك

أرغب فى مساعدتكم  الكريمة فى جزئين الاول وهو أن الاسم الاول لا يأتى فى ترتيبة مع استدعاء البيانات من الورقة الرئيسية

 أما الجزء الثانى هو أرغب فى زيادة عدد الكوبونات الى عشرة كوبونات بدلا من ثمانية مع الحفاظ على فواصل الصفحات

علما بأن البيانات الاصلية قد تصل الى حوالى 2000 صف بالورقة الرئيسية للبيانات

برجاء الاطلاع على المرفق التالى **** شاكر فضل حضراتكم *** وجزاكم الله خيرا

طباعة أرقام الجلوس.xlsm

تم تعديل مارس 5, 2019 بواسطه ناصرالمصرى

[مصطفى محمود مصطفى]

Sub ترحيل()
On Error Resume Next
Application.ScreenUpdating = False
Range("B13:P4503").ClearContents
تنسيق
AA = Range("صف").Value
E = Range("نصف_الطلبة").Value
U = 5
R = 7

R=7  غيرها الى R=6 سيجلب لك من اول اسم

[ناصرالمصرى]

للرفع

[بن علية حاجي]

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

تم تعديل الكود حسب ما تريد مع إضافة فاصل الصفحات بعد كل 10 وريقات، وتعديل تنسيق الورقة (ارتفاع الصفوف) حتى تحوي كل صفحة 10 كوبونات...

بن علية حاجي

طباعة أرقام الجلوس.xlsm

[وجيه شرف الدين]

الله يحفظ ويبارك فيك استاذنا الفاضل

[مصطفى محمود مصطفى]

ابداع استاذ بن علية حاجي وفقكم الله

[ناصرالمصرى]

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

أخى وأستاذى الفاضل / بن عليه حاجى 

والله يعجز لسانى عن مدى شكرى واحترامى وتقديرى لشخصكم الكريم

بارك الله فيكم وجزاكم الله خيرا والى لقاء قريب فى تعديل كود أخر هذا بعد طلب الاذن

 

[كباكا]

ثانيا اذهب الى صفحة بيانات اساسية وضع المؤشر فى الخلية الخضراء اول الصفحة ( بى 3 ) ستظهر لك معادلة غير فيها ( اى 65 ) اكتبها ( اى 500 ) حسب عدد تلاميذك المدونين
حتى لا تكون قاصرة على 65 طالب . وشكرا