تكرار رأس وتزييل فى كل الشيتات

[accTAREK]

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

الرجاء من السادة الأفاضل أن يدلونا على طريقة تكرار رأس وتزييل الصفحة فى كل الشيتات دفعة واحدة حتى مع إضافة شيتات جديدة

[يوسف عطا]

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

اما فى التزييل فالامر اصعب من ذلك والله اعلم

[accTAREK]

مشكور أخى الفاضل على مشاركتك ... وجزاكم الله كل الخير

[كعبلاوى]

أتمنى من السادة أساتذنا الأفاضل مشكورين إرفاق ملف تطبيقى يبين ذلك

[يوسف عطا]

تفضل يا غالى

تكرار الرأس والتزييل فى كل الشيتات بورقة العمل

حتى التى يتم إدراجها مستقبلاً

يوضع الكود فى حدث زيس وورك بوك

الكود منقول عن الأخ جمال الفار

Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup

    .RightHeader = Sheets(1).Range("A1").Value

    .CenterHeader = Sheets(1).Range("B1").Value

    .LeftHeader = Sheets(1).Range("C1").Value

    .RightFooter = Sheets(1).Range("A2").Value

    .CenterFooter = Sheets(1).Range("B2").Value

    .LeftFooter = Sheets(1).Range("C2").Value

End With

End Sub

[يوسف عطا]

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

هذا هو الملف

كود تكرار راس وتزييل فى كل الشيتات.rar