لا يمكن ادراج فواصل الصفحات لاكثر من 1023 بالاكسل

[ابو ابراهيم11]

السلام عليكم 

تم عمل جدول بالاكسل يحمل بيانات خاصة لاكثر من 2500 بشيت الاكسل لغرض طباعة لكل ورقة لكل موظف ولكن عند الوصول الى صفحة عدد 1023 تخرج رساله لا يمكن ادراج اكثر من 1023 فاصله افقية بالاكسل فما هو الحل لذلك الاشكال كما موضح بالمرفق 

قم بتحريك فاصله الصفحة 1023 او ما بعدها تظهر رساله خطا 

شكرا للقائمين على هذا المنتدي الكبير والرائع وهو ينطبق علية قول زكاة العلم تليمه

 

1.xlsx

[Ali Mohamed Ali]

وعليكم السلام-جرب هذا

 

1.xlsm

[ابو ابراهيم11]

احسنت ولكن ان امكن كيف تم ذلك كوني اتعامل مع شيتات عدة من هذا النوع قد تصل الى 6000 

وشكرا لك 

 

 

[Ali Mohamed Ali]

وذلك بهذا الكود

Sub InsertPageBreaksByKeyphrase()
    Dim rangeSelection As Range
    Dim cellCurrent As Range
 
    Set rangeSelection = Application.Selection
    ActiveSheet.ResetAllPageBreaks
 
    For Each cellCurrent In rangeSelection
        If cellCurrent.Value = "رقم البطاقة التموينية" Then
            ActiveSheet.Rows(cellCurrent.Row + 1).PageBreak = _
                xlPageBreakManual
        End If
    Next cellCurrent
End Sub