احمد عبدالحليم

تفضل اخى جرب هذه المعادلة test1 (1).xlsx

الشكر لله اخى الفاضل

جرب هذا الكود SaveNew.xlsm

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

اكتب بيانات افتراضية لاكثر من طالب حتى نسطيع مساعدتك كمان انت عملت موضوعين لنفس الطلب وكدة موضوع منهم اتحذف وممكن التانى التانى يتحذف (متكررش نفس الموضوع)

هو فين ListBox فى اى فورم

وعليكم السلام ورحمه الله وبركاته ارفق ملف عمل لتوضيح المشكلة وان شاء الله سوف يتم حلها

ما شاء الله ايه الحاجات الجديده والجميله دى زادك الله سبحانه وتعالي من علمه

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

تفضل جرب هذا الملف فحص التاريخ1.xlsm

تفضل جرب هذا تسمية النطاقات.xlsm

ارقق مثال للمطلوب والمدى الذى تريد حذفه ............ الى اخره

الحمد لله على تنفيذ المطلوب وجزاء الله من جميع ابواب الخير

جرب هذا حساب متوسط.xlsx

من الافضل عند الطباعة عرض معاينه الطباعة بدل من عرض خيارات الطباعة كما فى الاكواد الخاصة بك (رأي شخصى )

قم باذالة الشرط Private Sub CommandButton1_Click() Dim m As Long Dim s As Long m = Sheet1.Range("a" & Rows.Count).End(xlUp).Row For s = 2 To m If Sheet1.Cells(s, 19).Value < Sheet1.Range("x1").Value Then ListBox1.AddItem Sheet1.Cells(s, 1).Value ListBox1.list(ListBox1.ListCount - 1, 1) = Sheet1.Cells(s, 5).Value End If Next s End Sub ليصبح هكذا Private Sub CommandButton1_Click() Dim m As Long Dim s As Long m = Sheet1.Range("a" & Rows.Count).End(xlUp).Row For s = 2 To m ListBox1.AddItem Sheet1.Cells(s, 1).Value ListBox1.list(ListBox1.ListCount - 1, 1) = Sheet1.Cells(s, 5).Value Next s End Sub قم بازالة الشرط if تعديل بسيط.xlsm

اذا كنت تقصد فورم 5 الخاص بتنيه ان الرصيد اقل من 100 فهو يعمل ويعرض كود الصنف الذى رصيده اقل من 100 واخر كود صنف اقل من 100 هو 705

وعليكم السلام ورحمه الله وبركاته حدد الوجهات أو وضح ما تريده

نعم يوجد حل بالاكسل العادى وقمت بعملها بالفعل وبيشتغل حوالي 8 محاسبين على نفس الملف والجميع يدخل البيانات بكل سهوله الطريقه كالتالي هتربط جميع الأجهزة بالشبكه هيكون في جهاز رئيسي (ك سيرفر) هيكون عليه الملف الأساسي جميع المحاسبين هيرسلوا له البيانات ويستقبلوها كل ذلك ب Vba المدير هيكون جهازه على نفس الشبكه ويقدر يسستعرض جميع البيانات والفكره الحمد لله شغاله ليها سنتين وما زالت

تفضل اخى هذا كود بحث وليس ترحيل جرب الملف MY_RESULT.xlsm

معذرة لم انتبه للطلب الثانى وهو الطباعة تم عمل كود الطباعة وهو للمعاينة قبل الطباعة Retails Sales Report .xlsm

تفضل اخى جرب هذا المف والكود للعلامة الاستاذ / ياسر العربى (كود البحث باستخدام المصفوفات وقام بشرحه بالتفصيل العلامة الاستاذ/ ياسر خليل ابو البراء Retails Sales Report .xlsm

شكرا على دعواتك ولك المثل وزيادة

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

عمل رائع وتسلم ايدك