برجاء المساعدة فى التعديل على هذا الكود

[ابو تالين]

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

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

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

 

ولكم جزيل الشكر

JUNE-.rar

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

وعليكم السلام أخي الكريم

يرجى أن يكون الموضوع لطلب واحد فقط لكي تجد استجابة أفضل

تفضل الكود التالي عله يفي بالغرض إن شاء الله

Sub TotalsInAllSheets()
    Dim ws      As Worksheet
    Dim lr      As Long

    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 2
            With ws
                .Rows(lr).Clear
                .Range("H" & lr).Value = "Total :"
                .Range("I" & lr & ":M" & lr).Formula = "=SUBTOTAL(9,I8:I" & lr - 2 & ")"
                With .Range("H" & lr & ":M" & lr)
                    .Font.Size = 10
                    .Font.Bold = True
                    .Font.Color = vbRed
                    .NumberFormat = "#,##0.00_);-#,##0.00"
                End With
                .Range("K" & lr).Clear
            End With
        Next ws
    Application.ScreenUpdating = True
End Sub

 

[ابو تالين]

اخى ياسر خليل أبو البراء

جزاك الله كل خير ... نعم هو المطلوب 

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

وجزيت خيراً أخي العزيز بمثل ما دعوت لي والحمد لله أن تم المطلوب على خير

والحمد لله الذي بنعمته تتم الصالحات