طلب دمج كود طباعة مع كود آخر

[مداد_1423]

تحية طيبة

آمل أن يكون طلبي خفيف على حضراتكم

لدي كود يعمل بكفاءة  

وهذا هو

Sub Macro1()
    Dim i As Integer, m As Integer

    Application.ScreenUpdating = False
        For i = 2 To 4
            With ThisWorkbook.Worksheets(i)
                m = .Cells(Rows.Count, 1).End(xlUp).Row
                If i <> 3 Then
                    .Range("A1:AH" & m).PrintOut Copies:=1, Collate:=True
                ElseIf i = 3 Then
                    If .Range("AH" & .Cells(Rows.Count, "AH").End(xlUp).Row).Value > 0 Then
                        .ListObjects("HR_2").Range.AutoFilter Field:=34, Criteria1:=">0"
                        .Range("A1:AH" & m + 1).PrintOut Copies:=1, Collate:=True
                        .ListObjects("HR_2").Range.AutoFilter
                    End If
                End If
            End With
        Next i
    Application.ScreenUpdating = True
End Sub

أريد أن أضيف هذا السطر بحيث يكون فعال في شيت (Overtime) فقط

ActiveSheet.PageSetup.RightFooter = Range("AP3").Value

لأني أريد أن يظهر الشرط الموجود في خلية AP3 في الركن الأيمن في تذييل الصفحة

الكود اختبرته على ملف من شيت واحد وفعال ولكن ما عرفت أضيفه على شيت الأوفرتايم

ملاحظة: الكود يقوم بطباعة جميع الشيتات ، لذا وجب التنبيه 

 

 

تحياتي

HR_TEST2.xlsm

[Ali Mohamed Ali]

اذا كان الكود يعمل معك بكفاءة فبهذه الإضافة يكون الكود كالتالى:

Sub Macro1()
    Dim i As Integer, m As Integer

    Application.ScreenUpdating = False
        For i = 2 To 4
            With ThisWorkbook.Worksheets(i)
                m = .Cells(Rows.Count, 1).End(xlUp).Row
                If i <> 3 Then
                    .Range("A1:AH" & m).PrintOut Copies:=1, Collate:=True
                ElseIf i = 3 Then
                    If .Range("AH" & .Cells(Rows.Count, "AH").End(xlUp).Row).Value > 0 Then
                       .ListObjects("HR_2").Range.AutoFilter Field:=34, Criteria1:=">0"
                       .Range("A1:AH" & m + 1).PrintOut Copies:=1, Collate:=True
                        .ListObjects("HR_2").Range.AutoFilter
                    End If
                End If
            End With
        Next i
    Application.ScreenUpdating = True
    Sheets("Overtime").PageSetup.RightFooter = Range("AP3").Value
End Sub

 

 

 

[مداد_1423]

أستاذنا : علي

بارك الله فيك ومتعك بصحتك وأسبغ عليك نعمه

 

أولاً أشكرك لأني عرفت كيف أعين الشيت الذي أريد من عدة شيتات في الملف

 

لكن الكود لا يقوم بالمطلوب

جربت فصلت الكود ودمجتهم ما نفع

Sub MACROS()
   Call Macro2
   Call Macro1
End Sub

لكن لمن أشغل كل كود وحدة تكون النتيجة صحيحة

للعلم : الشرط في خلية AP3 أكبر من 79 يكون فيه اعتماد

لاحظ المرفق 

HR_TEST2.xlsm

[احمد بدره]

بعد إذن الأستاذ الفاضل علي

جرب هذا

HR_TEST2.xlsm

[مداد_1423]

الأستاذ احمد بدره

نفع الله بك وبارك في علمك وصحتك ووقتك 

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

لك وللأستاذ الفاضل علي جزيل الشكر وخالص الدعاء

تحياتي