تجميع من عدة شيتات في شيت واحدة حسب اسم الموظف

[محمود أبوسيف]

المطلوب

عمل تجميع لكافة الأرقام والنسب التي أمام كل موظف علي مدار أيام الشهر 

ويتم ذلك كله في شيت واحد (Row) 

ويكون التجميع في الشيت الأخير حسب اسم الموظف

FAY @ BEN Daily performance .rar

[lionheart]

Sub Test()
    Const rAddress As String = "A2:J10"
    Dim ws As Worksheet, sh As Worksheet, r As Range, m As Long
    Application.ScreenUpdating = False
        Set sh = ThisWorkbook.Worksheets("ROW")
        sh.Cells(1).CurrentRegion.Offset(1).ClearContents
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> sh.Name Then
                m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
                Set r = ws.Range(rAddress)
                sh.Range("A" & m).Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
            End If
        Next ws
    Application.ScreenUpdating = True
End Sub

 

[أ / محمد صالح]

حسب فهمي للمطلوب

أنك تريد تجميع نفس الخلية من جميع الشيتات

لذا يمكن استعمال نفس تصميم الشيتات في شيت row

مرفق ملفك وبه المعادلة الطبيعية في الجزء العلوي

وكذلك دالة معرفة vba اسمها sumall في الجزء السفلي

ودالة أخرى لصناعة المعادلة العادية بالكود

بالتوفيق

جمع الخلية من جميع الشيتات.xlsb