رجب جاويش

لا شكر على واجب أخى الفاضل

الأخ الفاضل / ابو سلام تم عمل المطلوب وهو استدعاء بيانات من عدة ملفات بالمعادلات ولكن مع فرق بسيط وهو تثبيت السنة أما الشهر فيتم اختيارة من القائمة المنسدلة pc sales.rar

شكرا جزيلا أخى الحبيب محمود جزاك الله كل خير على هذا المرور العطر

تفضل أخى ما تريد تم تنفيذ ما تريده بالضبط ولكن لاحظ أنه تمت الأستعانة بعمود اضافى مخفى وهو العمود B test 1.rar

تفضل تاريخ1.rar

وعليكم السلام شكرا جزيلا أخى / أبو حنين شرف لى هذا المرور العطر حفظكم الله وبارك فيكم أخوك / رجب جاويش

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

أخى / ابو سلام بعد التحية تفضل ما تريد Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("d3:e3")) Is Nothing Then Dim cl As Range Dim ws As Worksheet Application.ScreenUpdating = False On Error Resume Next y = ActiveWorkbook.Name x = ActiveWorkbook.Path & "\" & Cells(3, 4).Value & ".xls" Workbooks.Open Filename:=x For Each ws In ActiveWorkbook.Worksheets For Each cl In ws.Range("A2:L2") If ws.Name = Workbooks(y).Sheets("احصائية").Range("D3") And cl = Workbooks(y).Sheets("احصائية").Range("E3") Then Workbooks(y).Sheets("احصائية").Range("D6") = cl Workbooks(y).Sheets("احصائية").Range("E6") = cl.Offset(1) End If Next Next Workbooks(x).Activate ActiveWindow.Close Application.ScreenUpdating = True End If End Sub pc sales.rar

أخى الفاضل / أبو أنس حاجب تشرفت بمرورك العطر وجزاك الله كل خير

شكرا جزيلا أخى الفاضل وجزاك الله كل خير على هذا الدعاء الطيب

أخى أبو حنين حفظك الله لنا مبدعا رائعا بجد اعجاز وابداع منقطع النظير

شكرا جزيلا أخى ياسر جزاك الله كل خير على هذا التشجيع

تفضل أخى استدعاء بيانات من عدة ملفات workbooks pc sales.rar

تفضل أخى ابراهيم تم استبدال الكود القديم بكود آخر للمبدع الأستاذ / عبد الله باقشير مع تعديل الكود ليناسب هذا الملف بحث.rar

تفضل أخى استدعاء البيانات من عدة شيتات pc sales.rar

وهذا حل آخر بمعادلات الصفيف TestFormula 5.rar

شكرا أخى الحبيب / ياسر بارك الله فيك :signthankspin: :signthankspin:

وهذه حل آخر بمعادلات عادية أيضا TestFormula4.rar

وهذا حل آخر بمعادلات عادية وليست معادلات صفيف TestFormula3.rar

وهذا حل آخر بالمعادلات أيضا TestFormula2.rar

أخى / ياسر خليل حل رائع ومعادلات رائعة تسلم ايديك

أخى / أحمد البحيرى أخى / محمود أخى / ياسر خليل جزاكم الله كل خير على هذه الكلمات الطيبة

أخى / محمود جزاك الله كل خير على أفكارك الجميلة أخى / ياسر خليل حل ممتاز ولاثراء الموضوع هذا كود آخر يؤدى المطلوب Sub ragab() For i = 28 To 4 Step -1 For ii = 2 To 8 If Cells(i, ii).Value <> "" Then Cells(3, ii).Value = Cells(Cells(i, ii).Row, 1).Value End If Next Next End Sub test1.rar

أضم صوتى لصوت أخى الفاضل / ياسر خليل فالملف يعمل عندى تمام والمشكلة فعلا فى تنشيط وضع DESIGN DODE

نعم أخى