ادراج فاصل صفحة بناء علي قيمة خلية

[احمد ابوزيزو]

السادة الاعضاء الكرام ...السادة المشرفين المحترمين

تحية طيبة ،،

المرفق ملف مرتبات يكفي لعدد 220 موظف مقسم كل 20 موظف في صفحة واسفل هذه الصفحة يوجد صف اجمالي

يستخدم هذا الملف من قبل وحدات كثيرة ليس بالضرورة ان يكون لديها الـ 220 موظف وبالتالي ان تم عمل فاصل صفحة لكل الصفحات

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

المطلوب

ان يتم عمل فاصل صفحة تلقائي بورقة كشوف

بناء علي قيمة خلية بالصف اذا كانت هذه الخلية اكبر من صفر يتم ادراج فاصل صفحة تحت هذا الصف  (الاجمالي لكل 20 موظف )

شكرا مقدما للجميع

المرفق

المرتبات قانون81 شهر يوليو2020لعدد220موظف.xlsb

[احمد ابوزيزو]

السادة الاعضاء الكرام ...السادة المشرفين المحترمين

تحية طيبة ،،

تم البحث عن الكود وتم الحمد لله العثور علي كود مناسب  من خلال الصفحة

https://www.mrexcel.com/board/threads/insert-a-page-break-before-a-specific-cell-value.808182/

وتم التعديل علي الكود ليناسب المطلوب فاصبح الكود كالتالي
 

Private Sub Worksheet_Activate()
'ازالة فواصل الصفحات واعادة ضبط الزروم الي100في المائة
    Cells.Select
    ActiveSheet.ResetAllPageBreaks
 '      ضبط الزوم للصفحة الي 85في المائة
   With ActiveSheet.PageSetup
              .Zoom = 85
          End With
 If TypeName(ActiveSheet) <> _
        "Worksheet" Then Exit Sub
        Dim find_text As Variant
    find_text = "فاصل"
    If find_text = False Then Exit Sub
         Dim num As Long
    Dim cell As Range
    num = 0
     For Each cell In Range("a:a")
    If LCase(cell.Value) = ("فاصل") Then
            num = num + 1
            cell.PageBreak = xlPageBreakManual
        End If
    Next cell

End Sub

كما تم اضافة عمود في بداية ورقة كشوف لاضافة كلمة "فاصل" اسفل الصف المراد ادراج فاصل صفحة تحتة

شكرا لحضراتكم

بعد اضافة كود فاصل الصفحات ...المرتبات قانون81 شهر يوليو2020لعدد220موظف.xlsb

[ناصرالمصرى]

الله ينور على حضرتك 

سؤال بخصوص الحافز الاضافى الجديد يعد إذن حضرتك با أستاذ أحمد

هل سيتم إضافة الحافز الاضافى الحالى على الحافز الاضافى الجديد للدرجة الاولى على سبيل المثال

أم سيؤدى الفرق بينهما ..... برجاء الافاده وجزاكم الله خيرا

 

[احمد ابوزيزو]

لم تصدر تعليمات الحافز الجديد بعد

وقد تصدر التعليمات ومعها انشاء كود ( اقتصادي شجرة ثانية وثالثة ) جديد للحافز الجديد

او ان ينص القرار علي اضافة مبلغ الحافز الجديد الي الحافز الاضافي الـ 150 جنية الذي تقرر في يوليو 2019

[ناصرالمصرى]

شكرا لحضرتك أستاذى الفاضل

كيف يمكن تحديد الاساسى المجرد من العلاوات حال عدم الحصول عليه 

أرجو الافاده وشاكر فضل حضرتك

[احمد ابوزيزو]

استاذ / ناصرالمصرى

يمكنك الاستعانة بهذا البرنامج

https://www.facebook.com/pg/salaryscale/posts/

[ناصرالمصرى]

استاذ أحمد

فى الحقيقة تم تجربة هذا البرنامج من مدة ولكن لا يعطى نتائج صحيحة

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