القول المأثور قام بنشر سبتمبر 13, 2021 مشاركة قام بنشر سبتمبر 13, 2021 السلام عليكم .. لدي عدة ملفات عبارة عن بيانات لكل زبون به ارقام نموذج وكل نموذج متكرر بإجمالي الفاتورة الخاصة بها. المطلوب تجميع إجمالي الفاتورة من بيانات الزبائن في ملف أكسل واحد والمسمى Number استنادا إلى رقم النموذج بشرط رقم الزبون المدخل في الخلية. للتوضيح أكثر في المرفقات .. هل يمكن بالطريقتين ، طريقة بالأكواد، وطريقة أخرى بالمعادلات cal.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 14, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 14, 2021 إن شاء اللّه يكون هذا هو المطلوب في حالة زيادة أسماء المصنفات يتم نسخ المعادلة لأسفل وتغيير اسم المصنف يدويا في اول خلية فقط ثم النسخ أفقيا بالتوفيق sumif in closed workbooks.rar 3 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر سبتمبر 15, 2021 مشاركة قام بنشر سبتمبر 15, 2021 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 2 رابط هذا التعليق شارك More sharing options...
القول المأثور قام بنشر سبتمبر 15, 2021 الكاتب مشاركة قام بنشر سبتمبر 15, 2021 دائما مبدع استاذي محمد صالح، جزيل الشكر والإمتنان. بارك الله فيك. 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 15, 2021 مشاركة قام بنشر سبتمبر 15, 2021 الشكر لله الذي وفقنا لهذا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.