طلب مساعدة تجميع إجمالي الفاتورة استنادا إلى رقم النموذج

[القول المأثور]

السلام عليكم .. لدي عدة ملفات عبارة عن بيانات لكل زبون به ارقام نموذج وكل نموذج متكرر بإجمالي الفاتورة الخاصة بها.

 المطلوب تجميع إجمالي الفاتورة من بيانات الزبائن في ملف أكسل واحد والمسمى Number استنادا إلى رقم النموذج بشرط رقم الزبون المدخل في الخلية.

للتوضيح أكثر في المرفقات  .. هل يمكن بالطريقتين ، طريقة بالأكواد، وطريقة أخرى بالمعادلات

cal.rar

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

إن شاء اللّه يكون هذا هو المطلوب 

في حالة زيادة أسماء المصنفات يتم نسخ المعادلة لأسفل

وتغيير اسم المصنف يدويا في اول خلية فقط ثم النسخ أفقيا

بالتوفيق 

sumif in closed workbooks.rar

[lionheart]

Sub Test()
    Dim ws As Worksheet, c As Range, myDir As String, fn As String, shName As String, s As String, t As String, m As Long, n As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        myDir = ThisWorkbook.Path & "\"
        With ws.Range("B4:B" & ws.Cells(Rows.Count, "B").End(xlUp).Row)
            .Offset(, 1).Resize(.Rows.Count, 4).ClearContents
            For Each c In .Cells
                fn = Dir(myDir & "\" & c.Value & ".xlsx")
                If fn = Empty Then GoTo NXT
                With GetObject(myDir & fn).Worksheets.Item(1)
                    shName = .Name
                    m = .Cells(Rows.Count, "B").End(xlUp).Row
                End With
                For n = 1 To 4
                    s = "'" & myDir & "[" & fn & "]" & shName & "'!" & Range("B6:B" & m).Address(True, True, -4150)
                    t = Replace(s, Split(s, "!")(1), Range("C6:C" & m).Address(True, True, -4150))
                    c.Offset(, n).Value = Application.ExecuteExcel4Macro("SUMPRODUCT((" & s & "='" & ws.Name & "'!" & c.Offset(3 - c.Row, n).Address(True, True, -4150) & ")*(" & t & "))")
                Next n
NXT:
            Next c
        End With
    Application.ScreenUpdating = True
End Sub

 

[القول المأثور]

دائما مبدع استاذي محمد صالح، جزيل الشكر والإمتنان.  بارك الله فيك.

 

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

الشكر لله الذي وفقنا لهذا