السلام عليكم
المشكلة لم تكن في الكود بل المشكلة في الخلايا المدمجة بالأعلى في الورقة، تم إلغاء دمج الخلايا في الصفوف السبعة الأولى (من 1 إلى 7) بالملف واستعمال خاصية "التوسيط عبر التحديد" للمحافظة على التنسيق المطبق على الخلايا المدمجة سابقا... وتم أيضا (استعادة) الأمر التالي والذي تم التعديل عليه سابقا في الكود :
.Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i)
بدلا من الأمر :
.Range(a).EntireRow.Offset(h * i - h + 1).Copy .[A1].Offset(h * i)
أرجو أن يفي الغرض المطلوب.... واعذرني لعدم الإجابة على طلبك لهذه اللحظة لأني كنت مشغولا بصب علامات الفصل الثاني في المؤسسة...
بن علية حاجي
GN HICHAM niv1 v4.xlsm