عادل حنفي

اخي قد يفيدك هذا Book11.rar

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

عهدكم علي ذلك دائما كتبه الله في ميزان حسناتكم

؟؟؟؟؟؟

شكرا علي مرورك اخي ابو اسامه و انت اثرت نقطه هامه اشكرك عليها اخي mgd اذا انت كنت تعمل عل ملف اخر غير الذي ارسلته لك يجب نسخ الداله كما اشار الاخ ابو اسامه الي ملفك

اخي بداية انا نزلت الملف ويعمل عندي بكفاءه يوجد حلين الاول سارسل لك ملف باسم Mdule فك ضغطه في اي مكان ومن visual Basic editor ,وتحت قائمه vba project كليك يمين و اختر import file و اختر الملف الذي حفظته سابقا الحل الاخر قديكون في اعدادات الاكسل سارسل لك ملفين الاول 10 هذا اذا كان اصار الاكسل عندك version 10 الثاني 11 هذا اذا كان اصار الاكسل عندك version 11 و اعلمتي بالنتيحه Module.rar Excel_10.rar Excel_11.rar

اخي العزيز قد يفيدك هذا وانا استخدمت فيه داله للاخ العزيز ابو تامر وادعوا الله له بالشفاء ______41.rar

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

Up

برجاء الرد للاهميه

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

ندعوا له بالشفاء العاجل و العوده لنا بالشفاء العاجل ان شاء الله

اخي العزيز ابو اسامه بعد اذنك اخي h63 لقد جهزت لك هذا اثناء رد استاذنا ابو اسامه فليسمح لي Book1.rar

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

اضم صوتي اخي احمد لصوتك فهو يعز علينا جميعا وان شاء الله يكون خيرا

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

اخي العزيز خبور خير السلام عليكم ورحمة الله وبركاته اولا اشكرك علي تعليقك فتعليقكم هذا شرف لي وخصوصا عندما يكون من استاذ مثلكم فاشكرك كثير الشكر طريقتك اكيد هي الاسهل وقد تعلمت منها معلومه جديد (INDIRECT) اشكرك عيها ولي تعليق بسيط ان سمحت لي عند تشغيلي لملفك للوهلة الاولي اعتقدت انه لا يعمل و بعد فتره وجدت انه يعمل و لكن الخليه التي تكون ظاهره في القائمه الثانيه لاتتغير مباشرة و عند فتح القائمه تجد التغيرات حاولت التحايل علي هذا بهذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Sheets("Sheet1").Range("D1").Value = "ford" Then Sheets("Sheet1").Range("E1").Value = "" End If If Sheets("Sheet1").Range("D1").Value = "gmc" Then Sheets("Sheet1").Range("E1").Value = "" End If If Sheets("Sheet1").Range("D1").Value = "toyota" Then Sheets("Sheet1").Range("E1").Value = "" End If End Sub نجح ولكن لمجرد تنشيط الشيت بالطبع ستوجد مشكله اعلم ذلك من الكود و لكني احاول اكيد الموضوع منتظر لمساتك فهل هناك طريقه لعمل هذا و اشكرك مره اخري

اخي العزيز من قائمة insert اختر Name ثم Define سيظهر لك صندوف حواري لاضافة تسميه لمدي معين اكتب في المكان المحدد لكتابة الاسم اي اسم لتسمية المدي الذي تريده و ليكن Rng و يوجد خانه اخري بالاسفل اضغط بالزر الايسر للماوس داخله ثم اتركه كما هو وحدد بزر الماوس الايسر اول خليه بالشيت ثم اضعط علي مفتاح كنترول بلوحة المفاتيح ثم بزر الماوس الايسر حدد جميع الخلايا التي تريد ان تدخل في هذا النطاق سواء خليه خليه او مجموعة خلايا كما تريد و عندما تنتهي ابعد يدك عن مفتاح كنترول ثم اضغط علي زر Ok و من هنا ناتي الي الخطوه الاخيره ابحث داخل الكود المكتوب في الشيت عند و مكان كلمة All ضع مكانها الكلمه التي اخترتها سابقا والتي اخترتها انا هنا وهي Rng وجرب و اخبرني بالنتيحه

ارجو ان يحقق لك هذا ما تطلبه _____.rar

نرجوا رؤية المزيد من الاعمال

اخي العزيز قد يكون هذا هو طلبك اعلمني بالنتيجه تحياتي Hid_compo.rar

اخي مصطفي تسلم يداك

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

عمل رائع

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