ابو حمادة

السلام عليكم ورحمة الله وبركاته ارجو من الاساتذه الكرام كود او خاصيه للكمبو بوكس تمنع الكتابه الغير متشابهه في الكمبو بوكس بمعني في حالة كتابه اى قيمه غير موجوده بالكمبو بوكس يرفضها ملف مرفق Book2.rar

الف شكر استاذي الفاضل ولى استفسار لو كنت اريد تكون الاضافه في اكثر من نطاق بمعني عندي اول شيت يبدا من رنج (B7:B25) والنطاق الثاني يبدا من (B30:B45) علما بان كل نطاق له بيانات مختلفه

السلام عليكم ورحمة الله وبركاته الاساتذه الكرام عندي فورم لادخال بيانات وشغال تمام بس محتاج تعديل عليه وهو تكون الاضافه في النطاق من (B7:B25) ولا تتخطي هذا النطاق مرفق ملف للتوضيح وجزاكم الله خيرا اضافه.rar

الموضوع صعب ؟؟؟؟؟؟؟؟؟

السلام عليكم ورحمة الله تعالى وبركاته كل عام وانتم بخير محتاج كود يعمل الاتي عند كتابة تاريخ التعيين يتم حساب الفرق بين تاريخ التعيين وتاريخ اليوم واذا كان الفرق 15 سنه او اكثر يتم كتابة كلمة ( اكمل المدة ) في المربع الاحمر واذا كان اقل من 15 سنه يتم كتبة كلمة ( لم تكتمل المدة ) في المربع الاخضر كما موضح في الصورة والملف المرفق فرق بين ريخين.rar

السلام عليكم ورحمة الله تعالى وبركاته الاخوة الكرام اساتذتي لافاضل كل عام وانتم بخير محتاج كود ترحيل الصفوف الفارغه التى لايوجد بها بيانات لاسفل الصفوف التى يوجد بها بيانات عندي ملف به بعض البيانات احيانا بيتم مسح بيانات فايصبح بعض الصفوف فارغه من البيانات هل من الممكن عمل كود لنقل الصفوف الفارغه اسفل الصفوف التى بها بيانات بحيث لا يكون فيه صفوف فارغه وسط البيانات ملحوظه ( يتم نقل الصفوف وليس حذفها ) النطاق من (A6:CZ) لاخر صف به بيانات في العمود (B) جزاكم الله خيرا

والله بجد تسلم ايدك الله ينور عليك وزادك الله علما نافعا ووسع رزقك في الدنيا والاخره

السلام عليكم ورحمة الله استذتي الكرام عندي ملف به بيانات كثيره جدا وتم عمل فورم لاضافه اي تعديل على كل الاسماء ومحتاج الاتي كل 10 اسماء بيتم تحديد لهم نوع الكشف الخاص بهم في العمود () المطلوب محتاج اضافه حللقه تكراريه لكود الاضافه الموجود باليوزر فورم يعملل الاتي يخصص لكل 10 اسماء نوع كشف معين بحيث عند الاضافه يتم اول 10 اسماء يحدد لهم ( كشف 1 ) ثم يليه 10 اسماء ( كشف 2 ) وهكذا الى نهاية الاسماء مرفق صورة لتوضيح المطلوب وايضا ملف للعمل عليه اضافه1.rar

السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل محتاج كود لوضع تسلسل للكلمه المتشابهه كما موضح في الصوره المرفقه علما اننى قمت بعمل معادله تفي بالغرض ولكنى اريد التسلسل يكون بالكود وليس معادله لتخفيف الملف مع مراعاة ان يعمل الكود على اخر بيانات في العمود (C) المعادله بداخل الصورة المرفقه مرفق ملف تسلسل.rar

يريت نفس الكوددا مع تعديل بسيط وهو ان الكود يوضع رقم مسلسل للكلمة الموجوده في الخليه (A1) يعني اذا تشابه الكلمه الموجوده في الخليه (A1) يتم وضع مسلسل لها ويترك باقي الكلمات فارغهه انظر لهذه المعادله وحولها الى كود =IF($D4=$A$1;MAX($B$2:B3)+1;"")

الحمد لله هذا هو المطلوب بس لو امكن اضافه بحيث يكون العمل ااخر مدى فيه بيانات في العمود (D) علما بانه بعض الصفوف بتكون فارغه ليس بها بيانات

استاذي الفاضل ليست هذه المعادله هي المطلوبة ببساطه شديده اي كلمه مكرره في العمود (D) يتم عدها يعني اى كلمه مكرره يتم وضع تسلسل لها من 1 الى اخر عددها ببساطه اكثر عندك في الملف كلمة ( الاثاث ) مكرره كام مره امامك بالملف المرسل هتلقيها مكرره 4 مرات يكون المسلسل 4,3,2,1 واى كلمة اخرى مكرره يتم وضع تسلسل لها يعني يوجد اصنااف مكرره 5 مرات واصناف مكرره 10 مرات واصناف مكرره 100 مره يكون التسلسل كالتالي الكلمه المكرره 5 مرات = من 1 الى 5 يعني كل كلمه تاخد رقم اكبر من ال قبلها بواحد وهكذا لكل كلمة مكرره حسب عدد تكرارها في العمود (D )

بصراحه مش عارف انا حاسس اني مش عارف اوصلك المعلومه او حضرتك مش فاهم قصدي بص مثال عندي مثلا صنف اسمه الاثاث يكون التسلسل كالاتي الاثاث = 1 الاثاث = 2 الاثاث = 3 وهكذا لاخر الصنف يعني لو عندي 10 انواع من الاثاث يتم ترقيم من 1 الى 10 ودا يطبق لكل الاصناف اي صنف يبدا ب 1 وينتهي بعدد الصنف يعني لو فرض عندي 10 اصناف في الشيت يتم ترقيم كل صنف على حده كانك بتعمل تسلسل 1-2-3-4-5-6-7-8-9-10 وهكذا اتمنى اكون قدرت اوصلك المعلومه واخيرا شكرا لمجهودك واسف لو تقلت عليك تم الترقيم المطلوب يدوي لكي تعرف ما اريده في الكود انظر للصورة المرفقه

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

شكرا لك استاذي الغالى على اهتمامك انا اعلم هذه المعادله ولكن انا بسبب تقل الملف بسبب المعادلات كرهت وجود معادلات داخل اى عمل على الاكسل اريد كود افضل لتخفيف الملف علما بان هذه المعادله بها خطأ ربما لعدم توصيل المعلومه مني لحضرتك او خطأ في كتابتها هي بتوضع لكل صنف رقم لنى اريد عمل تسلسل لكل صنف 1,2,3,4,5 وهكذت مطلوب باختصار بالكود وضع تسلسل لكل صنف على حده بمعني اسم الصنف وليكن الاثاث يبدا الترقيم من 1 ثم 2 ثم 3 وهكذا لكل صنف على حدة ولك منى جزيل الشكر اخى الغالي

السلام عليكم ورحمة الله وبركاته ملف مرفق مثال.rar

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

الف الف شكر استاذي الغالى سليم حاصبيا على هذا المجهود ولي طلب بسيط لو ممكن نسيت اقول عليه سابقا وهو وضع شرط اخر ان يكون الحساب للسنه الحاليه فقط كما موضح في الصورة المرفقه والملف المرفق ولك منى جزيل الشكر والاحترام جمع salim.rar

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

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

ملف مشابه للاصل لتخفيف الملف نتيجه.rar

شكرا لاهتمامك استاذي الغالي تم استبدالها وعند التطبيق يظهر خطأ وتظهر هذه الرساله ويتم تحديد كلم (Ceiling) كما تشاهد في الصور

السلام عليكم ورحمة الله تعالى وبركاته الاخوة الاعضاء بعد وافر التحيه لاساتذتي الكرام محتاج مساعده في الاتى عندي فورم به بعض المعادلات الحسابيه اريدتقريب نتيجه تكست لاقرب رقم عشري صحيح Me.TextBox80.Value = Format(Round(Val(Me.Detels3) * 6.5 / 1000, 0.05), "0.00") مثال اذا كانت النتيجه 2.47 تقرب االي 2.50 واذا كانت النتيجه 2.44 تقرب الي 2.45 وهكذا وجزاكم الله خيرا

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

الف الف شكر استاذي الفاضل مجهود رائع تسلم ايدك لي استفسار بعد اذنك هل من الممكن لو فيه حساب ضرب لمجموعه تكستات مثلا من التكست 30الى تكست 40 يتم ضربهم في قيمة التكستات من تكست 41 الي تكست 51 القيمه الثابته تكست 1 يضرب في تكست 30 في تكست 41 وهكذا الى اخر التكستات تكست 1 قيمه ثابته كما في الصورة