نتهاء صفحات الطباعة بانتهاء قيمة العمود

[احمد العدوى]

اريد انتهاء صفحة الطباعة بعدكل محافظة

 

صفحات الطباعة.rar

[بن علية حاجي]

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

تم إضافة كود يقوم بإدارج "فاصل الصفحات" بعد كل محافظة مستعينا بالعمود C (عمود مساعد)... تم إدراج عدة تسميات لنطاقات معينة لتسهيل عملية الكود...

بن علية

 

صفحات الطباعة.rar

[احمد العدوى]

جزاكم الله خيراً 

شكرا على اهتمام سيادتكم

معلومة مهمة جداً

وكود جديد

وأنا سعيد

أشكرك

أشكرك

أشكرك

[محمد الورفلي1]

في ٥‏/١‏/٢٠١٦ at 22:03, بن علية حاجي said:

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

تم إضافة كود يقوم بإدارج "فاصل الصفحات" بعد كل محافظة مستعينا بالعمود C (عمود مساعد)... تم إدراج عدة تسميات لنطاقات معينة لتسهيل عملية الكود...

بن علية

 

صفحات الطباعة.rar

كود جميل جداً

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب بن عليه وجزيت خير الجزاء

ولكن لي رأي عند التعامل مع الأكواد أفضل عدم الاعتماد على ورقة العمل .. فيمكن الاستغناء عن العمود المساعد كما يمكن الاستغناء عن النطاقات المسماة والتي أرى أنها من الأسباب التي تثقل من عمل الملف عند الإكثار منها .. فإليك الكود التالي عله يفي بالغرض

Sub Insert_HBreaks()
    Dim I As Integer, Str1 As String, Str2 As String
    
    With ThisWorkbook.Worksheets("Sheet1")
        .ResetAllPageBreaks
        Str1 = .Range("B2")
        For I = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
            Str2 = .Range("B" & I)
            If Str2 <> Str1 Then
                .HPageBreaks.Add Before:=.Range("A" & I)
                Str1 = Str2
            End If
        Next I
    End With
End Sub

تقبل وافر تقديري واحترامي

[مهند الزيدي]

دائما ما تبدع اخي ياسر ...وفقك الله لكل خير

[احمد العدوى]

ماشاء الله

بقولك أنا سعيد

تقولى دى حالة

الله ينور ياأخ ياسر

بارك الله فيك

[احمد العدوى]

صفحات الطباعة.rar

ممكن مجموع العمود c تلقائى بكود حسب نهاية كل صفحة وإظهار مجموع كل صفحة فى الطباعة مهما تغيرعدد الصفوف فى كل صفحة