تعديل علي كود لعمل فواصل صفحات

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

السادة الاعضاء

السلام عليكم ...كل عام وانتم بالف خير

مطلوب التعديل علي هذا الماكرو

بدلا من كتابة نسبة زووم الصفحة في الكود

يتم كتابة نسبة زووم الصفحة في الخلية C5

الكود

 

Sub فواصل()
'ازالة فواصل الصفحات واعادة ضبط الزروم الي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
 Selection.AutoFilter Field:=2, Criteria1:="<>"

End Sub

 

 

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

[احمد بدره]

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

وأنت بكامل الصحة

جرب هذا

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

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

الاستاذ /

احمد بدره

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

هذا هو المطلوب