طريقة التذييل

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

بسم الله الرحمن الرحيم 

الاخوة الاعزاء 

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

التذييل المطلوب موجود بعد اخر اسم في شيت الفصل الثاني

من a3 07 :av307

الملف المرفق

 ناجح راسب تعديل 8 20150.rar

ناجح راسب تعديل 8 20150.rar

[طارق محمود]

السلام عليكم
أخي الكريم
أولا : شغل الكود التالي لعمل فاصل كل 10 أسماء

(تجده بالكود Module2)

Sub Page_Brake()
For r = 37 To [E9999].End(xlUp).Row Step 30
    ActiveSheet.Rows(r).PageBreak = xlPageBreakManual
Next
End Sub

ثانيا: لاأعلم وسيلة لتكرار التذييل إلا أن تحول النص أو الذي تريده ليكون تذييلا ، تحوله إلي صورة وتجعلها الهامش السفلي كما بالمرفق

ناجح راسب تعديل 8 20150.rar

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

  شكراً اخي طارق  على الاهتمام......

1. انا افضل النص على الصورة .. لان بيانات التذيل قد تكون قابلة للتغير وفي حالة الصورة لايمكن التغير في جزء من البيانات
2. كود فصل الاسماء ممتاز .. 
3. نتمنى من الزملاء افادتنا بكيفية ادرج  تذييل به نص ...

[جلال محمد]

أخي الكريم 

السلام عليكم

 اليك ملفين : الأول يجعل الرأس والتزيل في كل اوراق العمل

والثاني في ورقة العمل المحددة

انشاء الله تجد ما تطلبة في المرفق

رأس وتذيل جلال.rar

راس وتزيل من خلية.rar

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

اخي جلال بارك الله فيك  وجزاك الله خيراً 

ماهي الخطوات التي يجب ان اتبعها لنسخ هذا الكود في شيت الفصل الثاني

ثم انني ارغب في التذييل فقط

 ولك الشكر

[جلال محمد]

اخي الكريم

السلام عليكم 

قم بادخول الي صفحة محرر الأكواد وقم بسحب الكود الي ملفك

وفي الكود نفسة قم بحزف الكلمات التي في راس الصفحة واترك التزيل

شاهد الملف المرفق

رأس وتذيل جلال.rar

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

اخي جلال  شكراً لك 

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

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