عمل فاصل صفحات بعد عدد محدد من الصفوف

[aboesa]

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

ممكن لو سمحتوا ياكرام. كود عمل فاصل صفحات بعد عدد محدد من الصفوف. مثلا ٢٤ صف. يعني كل ٢٤ صف( تعتبر صفحة مستقله.) بارك الله فيكم. 

[بلانك]

ياريت نفس الطلب وشكرا مقدما لمن يساعدنا

[abouelhassan]

جرب

Sub InsertPageBreaks()
    Dim ws As Worksheet
    Dim rowsPerPage As Integer
    Dim lastRow As Long
    Dim i As Long

    ' تعيين عدد الصفوف في كل صفحة
    rowsPerPage = 24

    ' تحديد الورقة التي ترغب في تطبيق الفواصل عليها
    Set ws = ThisWorkbook.Sheets("Sheet1") ' تغيير "Sheet1" إلى اسم الورقة الخاصة بك

    ' حذف الفواصل الحالية إن وجدت
    ws.ResetAllPageBreaks

    ' الحصول على آخر صف غير فارغ في الورقة
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' إدراج فواصل الصفحات بعد كل rowsPerPage صف
    For i = rowsPerPage To lastRow Step rowsPerPage
        ws.Rows(i).PageBreak = xlPageBreakManual
    Next i
End Sub

قم بتغيير "Sheet1" في السطر Set ws = ThisWorkbook.Sheets("Sheet1") إلى اسم الورقة التي ترغب في تطبيق الفواصل عليها.

قم بتعديل قيمة rowsPerPage إلى العدد المطلوب من الصفوف في كل صفحة.

[aboesa]

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

[abouelhassan]

3 ساعات مضت, aboesa said:

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

اختار افضل اجابه لو تكرمت

[بلانك]

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