معادلة تجميع جميع صفحات الملف بصفحة واحدة

[ford246]

ارغب في ربط 31 ورقه ومجموعها في اخر ورقه بنفس البيانات

عنوان مخالف ... تـم تعديل عنوان المشاركة ليعبر عن طلبك

1.xlsx

[lionheart]

Insert a module and paste the following UDF

Function AutoSum(rng As Range) As Variant
    Dim ws As Worksheet
    AutoSum = 0
    Application.Volatile True
    For Each ws In Worksheets
        If Not ws Is Application.ThisCell.Parent Then
            AutoSum = AutoSum + ws.Range(rng.Address)
        End If
    Next ws
End Function

 Then in Total worksheet you can use the formula like that (example in cell A9 put the formula)

=AutoSum(A9)