احمدزمان

السلام عليكم و رحمة الله وبركاته هذا الملف حملته من هذا المنتدى قبل 10 عشر سنوات وهو لأحد عمالقة المنتدى الأستاذ ابوتامر جزاه الله كل خير و غفر له قد يكون به ما تريد منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.xls

جزاك الله خيرا

وجزاك الله خيرا اخي علي وبارك الله فيك و شكرا لك على كلماتك الرقيقة

و عليكم السلام و رحمة الله وبركاته اخي الفاضل انا جربت الملف وشغال حسب ما فهمت بدأ الكتابة من الصف 6 الى الصف 42 ثم بعد ذلك بدأ الكتابةمن صف 56 كما في المرفق رنين منتفعين.xls

رائع بارك الله فيك

وعليكم السلام نصيحة و لتسهيل العمل على الملف لو كان الملف يخصني اجمع جميع المستودعات في شيت واحد واضف عمود به اسم المستودع ثم اضف خاصية بالكود بحيث لا يتم اضافة اي بيانات الا بعد تحديد اسم المستودع

Sub MoveData() Dim EndRow As Long Dim TR, TR1 If Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("F8").Value = "" Or Sheets("Invoice").Range("B11").Value = "" Or Sheets("Invoice").Range("B13").Value = "" Then MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ" Else For TR1 = 1 To 9999 If Sheets("List").Cells(TR1, 1) <> "" _ And Val(Sheets("List").Cells(TR1, 1)) > 0 _ And Sheets("List").Cells(TR1, 2) = "" Then TR = TR1 GoTo 7 End If Next 7 Sheets("List").Cells(TR, 2).Value = Sheets("Invoice").Range("B8").Value Sheets("List").Cells(TR, 3).Value = Sheets("Invoice").Range("F8").Value Sheets("List").Cells(TR, 4).Value = Sheets("Invoice").Range("B11").Value Sheets("List").Cells(TR, 5).Value = Sheets("Invoice").Range("B13").Value Sheets("List").Cells(TR, 6).Value = Sheets("Invoice").Range("F13").Value Sheets("Invoice").Range("B8,F8,B11,B13,F13").ClearContents MsgBox prompt:="Êã ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End If End Sub

و عليكم السلام اخي الفاضل نحن في هذه الحالة يجب ان نحدد قيمة الصف الهدف بحسب الشروط الموجودة امامنا في ورقة list كما يلي نبدء من الصف رقم 1 الى اخر الورقة وتكون الشروط هي اذاكانت قيمة الخلية A لا تساوي فراغ و القيمة الموجودة في الخلية A رقم اكبر من الصفر و الخلية B فارغة لا يوجد بها اي قيمة اذا هذا هو الصف المطلوب =========== تمام كدة

وعليكم السلام و رحمة الله وبركاته جرب كما يلي =INDEX($G$9:$AV$9;;MATCH(MAX($G15:$AV15);($G15:$AV15);0)) في المرفق eng m.xls

السلام عليكم آسف لم ادخل المنتدى منذ فترة طويلة ماهو المطلوب

السلام عليكم و رحمة الله وبركاته حيث انني ما زلت استخدم هذا الملف الى اليوم لذلك يوجد اضافات حديدة سوف اضعها قريبا ان شاء الله تعالى - قائمة مالية - لحفظ الحركات المالية منه وله مع امكانية البحث - وصول سريع - لحفظ روابط الإرتباط الشعبي للملفات المستخدمة باستمرار ليسهل الوصول لها مع امكانية البخث ان شاء الله

و عليكم السلام ورحمة الله انا لا استخدمه فعليا - لذلك لا يوجد تحديثات اذا اردت اي تعديل ممكن عمله

السلام عليكم و رحمة الله وبركاته راجع الموضوع التالي https://www.officena.net/ib/files/file/109-مُجمِع-البيانات-للاكسيل-excel-data-collector/ ان شاء الله به ماتريد

السلام عليكم تفضل ALLA.xls

السلام عليكم جرب المرفق اوفيسنا ayman.xls

السلام عليكم استاذي الفاضل بن علية عمل رائع تشكر عليه جزاك الله خيرا اسمح لي باقتراح ============= اخي ايمن اقترح تغيير الجدول الى الشكل التالي لكي يسهل استخراج النتائج باستخدام الدالة sumproduct من افقي الى عامودي

ان شاء الله

و عليكم السلام و رحمة الله وبركاته الغاء تأمين الخلايا للخلايا التي ليس بها معادلات ثم استخدم حماية ورقة sheet protect

هذا مثال على نفس الملف 00محمدعبدالسلام.xls

و عليكم السلام و رحمة الله وبركاته في هذه الحالة ممكن نجمع النص في عمود مجاور للجدول مع الدالة TRIM ثم نعمل تصفية فلتر من هذا العمود هذا اقتراحي

السلام عليكم تم عمل كوود Sub ABSENT_LIST() ' Dim Q1, Q2, Q3, TR, FR Q1 = Range("D3") Q2 = Range("F3") TR = 6 Range("B6:F99").ClearContents With Sheets("الغيابات") For Q3 = 1 To 244 If .Cells(5, Q3) = Q1 Then For FR = 5 To 999 If .Cells(FR, Q3) = Q2 Then For FC = 1 To 5 Cells(TR, FC + 1) = .Cells(FR, FC) Next FC TR = TR + 1 End If Next FR End If Next Q3 End With End Sub فقط ادخل التاريخ ثم اضغط زر بيان الغياب ALLA.xls

السلام عليكم تم التعديل للنتائج السالبة تم اضافة زر بحث الحالة بعد جلب بيانات الفاتورة اختار من القائمة المنسدلة نوع الحالة المطلوبة و اضغط بحث الحالة اذا مسحت الخانة و ضغط بحث الحالة تظهر لك كل العمليات تم اضافة صف للمجاميع اعلى الورقة Testعمرضاحي.xls

في فكرة ممكن تعجبك نعدل على الكود بحيث يضع المصروف من الكميات و المبالغ ب السالب " - " حتى تكون النتائج النهائية افضل ما رأيك

جزاك الله خيرا تم التعديل الأخير بيجيب لك المنصرف و الوارد مع بعض

تم التعديل Sub Inqwayry() ' ‎26/08/2018 بواسطة ‎Zmn ' استخراج بيانات برقم الفاتورة Dim Q1, Q2, FR, TR Range("A11:L111").ClearContents Q1 = Range("C6").Value 'رقم الفاتور TR = 11 For Q2 = 1 To Sheets.Count If Sheets(Q2).Name = ActiveSheet.Name Then GoTo 3 With Sheets(Q2) For FR = 3 To 3333 If .Cells(FR, 14) = Q1 Then Cells(TR, 1) = .Cells(FR, 3) & .Cells(FR, 4) Cells(TR, 2) = .Cells(FR, 5) Cells(TR, 3) = .Cells(FR, 6) Cells(TR, 4) = .Cells(FR, 7) Cells(TR, 5) = Application.Sum(.Cells(FR, 8), .Cells(FR, 20)) Cells(TR, 6) = Application.Sum(.Cells(FR, 9), .Cells(FR, 21)) Cells(TR, 7) = Application.Sum(.Cells(FR, 10), .Cells(FR, 22)) Cells(TR, 8) = Application.Sum(.Cells(FR, 11), .Cells(FR, 23)) Cells(TR, 9) = Application.Sum(.Cells(FR, 12), .Cells(FR, 24)) Cells(TR, 10) = Application.Sum(.Cells(FR, 13), .Cells(FR, 25)) Cells(TR, 11) = .Cells(FR, 27) Cells(TR, 12) = .Cells(FR, 26) Cells(TR, 13) = Sheets(Q2).Name TR = TR + 1 End If Next FR End With 3 Next Q2 End Sub Testعمرضاحي.xls