كل الانشطه

ابداع ربي يعطييك العافية وينفع بك ما شاء الله تبارك الله

استاذي العزيز انا لم اقم بالمشاركة على هذا الملف حضرتك ارسلت لي ملف خطأ انا عندي ملف به مديول احتاج القيام بالتعديل عليه حيث يتم احتساب حاصل جمع عمود RollKgmsKnt بدل عمود MachN بمعنى تغير الخانة الموجود بها 48 الى 83.25 Option Explicit Sub test() Dim a As Variant, i Dim ar Dim x x = 1 For Each ar In Columns("a:a").SpecialCells(2).Areas a = ar.Offset(, 4).Resize(, 2) With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If a(i, 1) <> 0 Then If Not .exists(a(i, 1)) Then .Add a(i, 1), a(i, 2) Else .Item(a(i, 1)) = .Item(a(i, 1)) + a(i, 2) End If End If Next Cells(x, 14) = "RollKgmsKnt": Cells(x, 15) = "TOTAL" Cells(x + 1, 15) = WorksheetFunction.Sum(.items) Cells(x + 1, 13).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items)) x = x + UBound(a) + 1 End With Next End Sub 1تجميع.xlsm

شكراااااااااااااااااا جداااااااااااااااااا ربنا يبارك فيكم

وعليكم السلام -يمكنك استخدام هذه المعادلة =INDEX($O$3:$O$500,MATCH(B3,$M$3:$M$500,0),MATCH(C3,$N$3:$N$500,0)) نقل النسب2.xls

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

أنه يعمل ولاكن وجد أن قيمة المخزون يعرضها فى Me.stocktr يعمل على اخر سطر فى الليست بوكس وليس على التاريخ الأدنى اريد ربط القيمة مع التاريخ الأدنى رجاء ممكن اضافة تانية وفى حالة إذا كانت القيمة صفر مع التاريخ الأدنى يقوم بتحويل إلى التاريخ التالى كما موضح فى الصورتين

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

الف الف شكر وتقدير لكم

الف الف شكر والله عاجز عن التقدير

السلام عليكم كنت محتاج انقل النسب فى وجود شرطين ومرفق الاكسيل نقل النسب.xls

السلام عليكم. تعديل بسيط على معادلة أستاذنا الكريم حسونه لأن رقم الخلية منسي =IF(C4="";"";"Em" &TEXT(C4;"dd/mm/yyyy"))

شكرا لمجهودك ولكن بعد الغاء الاكواد فى النمزذج الفرعي كما فعلت التقرير الفرعي يعمل ولكن بدون اطارات حول الحقول اريد تشغيل هذه الاطارات عند تشغيل هذا الكود Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) ' Call Detail_Print_Run_All(5, "'save'", RGB(0, 0, 0)) End Sub يعمل التقرير الفرعي تمام ويعطي خطا فى التقرير الاساسي وعند تعطيله عمل بالتقريرين بدون اطار ارجو المساعدة للاهمية

تم الحل الحمد لله وقمت بالتعديل على الكود وأصبح lig = lig & " " & "-" & " " & Cnt.Cells(i, 0).Value & " " & "مبلغ" & " " & " " & Cnt.Cells(i, 1).Value

أولاً ألف شكر أ/محمد هشام. دا المطلوب فعلا إللي أنا عاوزه بس كنت محتاج معاه كمان لو مبتقلش على حضرتك جنب التاريخ لو ينفع المبلغ إللي أخده في التاريخ ده ويكون بينهم فواصل بدل ما هما لاصقين في بعض كده 26/12/2023 05/03/2024 28/06/2024 أنا عدلت على الكود كده علشان الفواصل لكن كل تاريخ يكون جنبه المبلغ إللي أخده مش عارف أعملها بصراحة lig = lig & " " & "-" & " " & Cnt.Cells(i, 1).Value

اخي الفاضل شكرا على المساعدة ولكن انا اريد اظهار مثلا مجموع RollKgmsKnt وهو 83.25 يظهر بدلا من 48 في خانة total وذلك عند الضغط على زر Button 1 مع الشكر

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل =IF(C4="";"";"Em" & TEXT(C;"dd/mm/yyyy"))

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××

Qry3 Qry4 Qry5 وين هذه الاستعلامات ؟

تفضل جرب هل هدا ما تقصده تم تمييز الاظافات التي قمت بتعديلها داخل الاكواد يرجى مراجعتها وتعديلها بما يناسبك sell-the-first-quantity- V3.xlsm

استاذ @Sħěrif Ħušsệiñ كثرة الكودات هي السبب تفضل التعديل حسب ما فهمت . Report_BoxLine_08.rar

حبیبی یا استاذ @kkhalifa1960 ان ارشادک و دلیلک کامل مرحبا بک انی جربت هذه الطریقة فی عدة مرات ولکن کان بدون فائدة، فلذا اعتقد ان المشکلة کانت من الاداة! على أي حال أنا ممتن لتوجيهاتك الدقیقة و الكاملة. الله سعدک 🌺 أشكر أيضًا الأصدقاء الآخرين الذين وجهوا وشاركوا في هذه المحادثة عسى الله كل خيركم.

بوجد صفحة بطاقة صنف تفصيلى نريد اخذ من التوريدات والتصنيع ما يناسبها فى بطاقات الصنف على كل صنف برنامج تصنيع (1).xlsm

اقصد عند الفلترا بواسطة اسم المخزن وكود الصنف كما هو موضح فى الصورة يظهر خيارين فى الليست بوكس صلاحيتين مختلفة وقيمة مخزون مختلفة لهذا المخزن وكود الصنف اريد عند الاستعلام بعد اختيار كود الصنف يظهر الرصيد تلقائى للمخزون فى خانة التكست بوكس المسمى Me.stocktr على حسب ادنى تاريخ وليس مجموع القيمة المخزونية sell-the-first-quantity- V2.xlsm

محتاج مساعده ضروري