احمد حمور-ابوعبدالله

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

اخي ابواحمد فله شمعه منوره دايما

اخي ابو احمد بارك الله فيك

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

اخي الكريم هذا بعض التعديل ربما يسهل عليك البحث 2.rar

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

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

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

اخي عبدالقادر صدقني الكل حابب يساعدك بس المشكله اننا بنلف وندور عند نقطه واحده وهي ان الملف يعمل عند الجميع ما عدا عندك انت فلا اعلم ماهي المشكله فاقترح عليك اقتراح ان تعمل كما بالفيديو المرسل اليك حيث انك ستقوم بالغاء كل الفورمز التي لديك وتستبدلها بالمرفق مني وان لم ينفع معك فلا شك انك تستخدم ملف اخر غير الذي نستخدمه نحن والله ولي التوفيق My Documents.rar

اخي عبدالقادر ارسلت لك database كما وردت في ملف اخي العيدروس امسح كل database الموجوده في الفورم عندك واستبدلها بdatabase المرفقه في الملف واتحدى لو لم يدخل معك الى البرنامج دون اخطاء New Text Document.rar

اخي الحبيب العيدروس لم اتفحص الملف من الداخل لانني واثق من عملك انه متقن ولكني ابشرك وابشر اخي عبدالقادر ان الملف الذي في المشاركه 32 يعمل بشكل ممتاز ولا توجد الاخطاء التي ذكرها اخي عبدالقادر ولا اعلم ما هي سبب المشكله

احسنت صنعا اخي عيدروس

لا عليك اخي يحياوي كأني سمعته وزياده تحياتي

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

اخونا يحياوي موسوعة الاكواد جل من لا يسهو النتيجه ستظهر لديك في الفيديو المرفق تحياتي debug.rar

اخي احمد جرب المرفق التالي لا نتيجه عندي يبدو ان الموضوع متعلق بفورمات الجهاز او ان الكود لا يعمل مع اوفيس 2003 فيديو1.rar

اخي الكريم ارفقت لك نفس ملفك وفيه الحل الذي قلته لك وهو يعمل 100% ويوجد ايضا شرح فيديو يؤكد صحة العمل * ارجو التنويه ان الحل المرفق هو خاص بطلبك الاول فقط My Documents.rar

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

اخي الكريم بالنسبه لطلبك الاول الكود الذي كان لديك بالشكل التالي Set q = .Range("c4:c" & LastRow).FindNext(q) وهذا بطبيعة الحال خطأ والصحيح هو Set q = .Range("a5:a" & LastRow).FindNext(q) اما طلبك الثاني ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

اخي يحياوي انت مبدع حقا اعمالك تدهشني حقا

اخي الحبيب يحياوي (موسوعة الاكواد) والله انني اعجبت كثيرا باكوادك ماشاء الله عليك دائما سباق للخير

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

اخي العزيز نارت بارك الله فيك والنتيجه رائعه

اخي الحبيب سعد عابد احييك على هذا العمل الجميل