حمادة عمر

بسم الله الرحمن الرحيم اقـــــــــدم لكـــــــــــــم اخـــــــوانــــي فهــــــرس كـــامــــل للمــوضــــوع (((( الدرس الاول )))) في المشاركة رقم 1# عمل شاشة التسجيل http://www.officena.net/ib/index.php?showtopic=45637 (((( الدرس الثاني )))) في المشاركة رقم 38# والمشاركة رقم 39# بعض الاضافات علي الشاشة لكفاءة عملها http://www.officena.net/ib/index.php?showtopic=45637&page=2 (((( الدرس الثالث )))) في المشاركة رقم 54# طريقة عمل استعلام في نفس الفورم http://www.officena.net/ib/index.php?showtopic=45637&page=3 (((( الدرس الرابع )))) في المشاركة رقم 86# والمشاركة رقم 87# طريقة عمل زر للتعديل بعد عمل استعلام http://www.officena.net/ib/index.php?showtopic=45637&page=5 المشاركة رقم 101# شرح الماكرو كامل ولتعامل مع الخلايا في الاكسيل ودالة IF و .... http://www.officena.net/ib/index.php?showtopic=45637&page=6 (((( الدرس الخامس )))) في المشاركة رقم 116# طريقة عمل زر للحذف بعد عمل استعلام http://www.officena.net/ib/index.php?showtopic=45637&page=6

السلام عليكم الاخ الكريم / جلال محمد ساقوم بوضع الحل لملفك كما طلبت لعل احد الاخوة يريد نفس طريقتك للتسهيل عليهم وقد تم حل موضوع الاخ جلال في موضوع منفصل وقدم له الاخ / حسين العصلوجي .. حل رااائع اقدمه لكم جزاك الله خيرا أعمالـــــــــ السنة_H.rar

شكرا جزيلا للجميع جزاكم الله خيرا

السلام عليكم الاخت الفاضلة / سما محمد بارك الله فيكي وجزاكي الله خيرا

السلام عليكم اخي العزيز / إبراهيم ابوليله بارك الله فيك وشكرا لتشجيعك الدائم لي جزاك الله خيرا

السلام عليكم الاخ الكريم / إبراهيم ابوليله بارك الله فيك وجزاك الله خيرا

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

السلام عليكم الاخت الفاضلة / سما محمد علي حسب علمي .... ان هذا الجزء او هذا السطر يتم استخدامه والغرض منه هو ( تسريع الأداء لأقصي حد ممكن ) يتم إستخدامه في أول الكود بالأعلي لانه عند إطفاؤه (False ) يوقف عمل تحديث الشاشة (ScreenUpdating) والحسابات في الاكسيل ويتم استخدامه في نهاية الكود ليتم تشغيله مرة اخري (True) ليعيد عمل تحديث الشاشة (ScreenUpdating) والحسابات .... والحصول علي اعلي كفاءة للكود ... جزاك الله خيرا

تم اضافة المشاركة للموضوع عن طريق الخطأ حيث تخص موضوع آخر وتم تعديلها اللهم صلي علي سيدنا ((( محمد )) وعلي آله وصحبه اجمعين

السلام عليكم الاخ الكريم / عبد القادر. بارك الله فيك جزاك الله خيرا

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

جميل جدا بارك الله فيك

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

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

السلام عليكم الاخ الكريم / aspiran استخدام الكود التالي لتنفيذ طلبك Sub sama1() Application.Dialogs(xlDialogSaveAs).Show End Sub

السلام عليكم اخي العزيز / إبراهيم ابوليله بارك الله فيك وزادك الله من علمه اعتذر لك عن التأخير عن الرد حيث لم اري مشاركتك الأخيرة بطلبك تعديل الكود الا الآن وعموما ... التأخير جاء بالمفيد فلقد قدمت الافضل أنت بالتأكيد مجهود راائع وجميل وهنيئاً لك الكود ولكل من يريده وللتنسيق ليس الا فهذا هو الكود خاصتك ولكن بشكل منسق فقط لمن يريده .... مع ملف مرفق وبه الكود جزاك الله خيرا اضافة ورقة جديدة ومعاينة1.rar Sub New_Sheet() Range("J2:Q3").Select Selection.Copy mySht = ActiveSheet.Name Set Sht = ActiveSheet N_Sht = Format(Sheets(mySht).[A2], "#") For I = 1 To Sheets.Count If Sheets(I).Name = N_Sht Then MsgBox ("توجد صفحة بنفس الاسم ... راجع اسم الصفحة اولا"): GoTo 1 Next Set Sht = Sheets.Add(After:=Sheets(Sheets.Count)) ActiveSheet.Name = N_Sht ActiveSheet.Paste ActiveWindow.SelectedSheets.PrintPreview Sheets("Sheet1").Select 1 End Sub

السلام عليكم الاخ الكريم / hoorabie بارك الله فيك فعلا فكرة راائعة وجميله جزاك الله خيرا وبعد اذنك تم تحويل الملف الي 2003 حسب رغبه الاخ / aspiran حيث ان رغبات اعضاء هذا الصرح العملاق تعتبر آواااااااااامر UserForm1.rar

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

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

السلام عليكم الاخ الكريم / أبو محمد أشرف بارك الله فيك وجعله في ميزان حسناتك ( ان شاء الله ) فهذا الخطأ اهم من اي خطأ ففعلا عندك حق جزاك الله خيرا

السلام عليكم الاخ الكريم / احمد مجدى بارك الله فيك وشكرا جزيلا لك علي مجاملتك الرقيقة فهذا الكلام اكبر مني ... اليك المرفق التالي به الفاتورة الصغيرة كاملة والكبيرة واتمام عمليات الترحيل النهائية بها ( جرب ذلك ) ولكن قبل البدء في عمل فورم البحث بالنسبة للمستشفي والطبيب فهل تريد التعديل فيها في Sheet1 ام ما وانت تريد تعديل البحث في ( الاصناف - المستشفي - الطبيب ) سليم ام لك متغيرات اخري رجاء الافادة لانهاء برنامجك في موعدك باذن الله قدرني ربي علي ذلك جزاك الله خيرا الايصالات 9+.rar

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

السلام عليكم الاخ الكريم / hoorabie بارك الله فيك جزاك الله خيرا

رائع اخي / حسين العصلوجي واظنه المطلوب تماما وننتظر رد الاخ الكريم الذي اعتذر له عن التأخير عليه / جلال محمد جزاك الله خيرا

جزاك الله خيرا