حمادة عمر

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

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

السلام عليكم الاخ الكريم / Alalawi9 بارك الله فيك وجزيل شكري وامتناني علي كلماتك التي لا اجد من الكلمات ما ارد به عليك ليوفيك حقك في الثناء وجعلني الله دائما عند حسن ظنكم .... جرب اخي الكريم الملف المرفق الخاص بك .. تم وضع الكود فيه ويعمل بالطريقة المطلوبة والشكر موصول لاخي الحبيب / احمد عبد الناصر ... جزاه الله خيرا ** ملحوظة : الحفظ يتم علي بارتيشين الـ D جزاك الله خيرا 111+.rar

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

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

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

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

السلام عليكم الاخ الكريم / AL-ZEER بارك الله فيك اسهل طريقة لتغيير وتوسيع اعمدة الليست يمكنك ذلك من خلال خصائص الليست وذلك من خلال الخيار ColumnWidths وذلك بوضع قيم عرض الاعمدة لليست وذلك بوضعها بالطريقة 100 pt;90 pt;90 pt;90 pt;90 pt;0 pt حيث ان الفاضلة ( ; ) الموجودة تفصل بين قيمة عرض كل عمود والآخر وكما هو مبين بالصورة التاليه واي استفسار الجميع معك دائما ... باذن الله جزاك الله خيرا

السلام عليكم الاستاذ القدير / مجدى يونس بارك الله فيك مرور طيب وكريم بس علي فكرة ... اخبار الحج .. ايــــــــــه جزاك الله خيرا

السلام عليكم الاخ الكريم / ahmedgenedy بارك الله فيك تفضل اخي طلبك الذي تريده ولكن يجب وضع الصور في المجلد photo في نفس الفولدر الموجود به ملف الاكسيل وعندما لا يوجد للرقم المحدد صورة ستجد مكتوب ( لاتوجد صورة ) شاهد المرفق جزاك الله خيرا اظهار صورة الموظف في الخلايا بناء علي رقمه.rar

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

السلام عليكم الاخ العزيز / AL-ZEER بارك الله فيك وجميل جدا ان تعدل انت بنفسك لتصل الي ما تريده تماما وما يتناسب مع عملك جزاك الله خيرا

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك مرور طيب وكريم من اخ اكرم جزاك الله خيرا

الاخ الكريم شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=45814&hl=

بارك الله فيك اخي الحبيب / ضاحي الغريب وجزاك الله خيرا

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك اولا : موضوع اكثر من راائع وسيستفيد منه الكثيرين بعد انتهاءك منه دون عناء ... ولكن كان الله في عونك فهو موضوع شائك بعض الشئ ... وفقك الله ولكن الموضوع يحتاج للتروي وبعض الوقت للمناقشة والدراسة الكاملة ثانيا : لي استفسار ايضا (( ذكرت في القواعد )) : حساب مكافأءة نهاية الخدمة في الأستغناء عن خدمات الموظف *** يستحق الموظف راتب نصف شهر عن مدة خدمته اذا كانت اقل من 5 سنوات *** الفترة التي بعد 5 سنوات يستحق راتب شهر عن كل سنة هل اذا كانت مدة الخدمة اكثر من 5 سنوات يتم حساب الخمس سنوات الاولي ايضا علي ( نصف شهر ) ثم الباقي علي شهر ام بان المدة اصبحت اكبر من 5 سنوات يلغي الشرط الاول ويتم التعامل بالشرط الثاني لكل السنوات جزاك الله خيرا

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

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

السلام عليكم الاخ الكريم / mazin99 بارك الله فيك شاهد الروابط التاليه ... ان شاء الله تجد بها طلبك او قم بارفاق ملف به مثال لما تريده بالضبط ... ليتم العمل عليه ولتوضيح الطلب اكثر http://www.officena.net/ib/index.php?showtopic=34870&hl=%2B%D8%B1%D8%A3%D8%B3+%2B%D9%88%D8%AA%D8%B0%D9%8A%D9%8A%D9%84 او http://www.officena.net/ib/index.php?showtopic=38916&st=0&gopid=213740& جزاك الله خيرا

السلام عليكم الاخ الكريم / Alalawi9 بارك الله فيك من الافضل ارفاق ملف به مثال لما تريده بالضبط للعمل عليه كما تريد ولكن اليك الكودين التاليين ... وهما للاستاذ / عباد ... ولكن تم التعديل الطفيف عليهم ليتناسب مع ما فهمته من الطلب قم بربط الكود بزر وسيتم حفظ الملف علي D ** الكود الاول يقوم بحفظ الشيت الموجود فيه الخليه A6 فقط اي ينسخ الملف بشيت واحد فقط في ملف مستقل بالاسم الموجود في الخليه المذكورة ** الكود الثاني يقوم بحفظ نسخة من الملف كاملا بكامل شيتاته بالاسم الموجود في الخليه المذكورة Sub copy_sh() Dim F_FOL As String Application.ScreenUpdating = False F_FOL = "D:\" FName = Sheets("Sheet1").Range("a6").Text With ActiveWorkbook Sheets("sheet1").Copy ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xls" ActiveWorkbook.Close False .Activate End With Application.ScreenUpdating = True End Sub الكود الثاني : Sub copy_ALL_sh() Dim F_FOL As String Application.ScreenUpdating = False F_FOL = "D:\" FName = Sheets("Sheet1").Range("a6").Text With ActiveWorkbook ActiveWorkbook.Worksheets.Copy ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xls" ActiveWorkbook.Close False .Activate End With Application.ScreenUpdating = True End Sub ارجو ان يفي بطلبك جزاك الله خيرا

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

آخر مرة بس يا سلمي طمنينا علي بابا الدكتور قاله ايه ... ان شاء الله خير وان شاء الله ربنا يوفقك في الامتحانات وتطلعي الاولي دائما ... زي بابا ... الاول في محبه الناس

السلام عليكم الاخ الكريم / essa_alamre بارك الله فيك وجزيل شكري علي كلماتك الجميله والاهم انك توصلت لما تريد جزاك الله خيرا

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

السلام عليكم الاخ الكريم / أ محمد عبد الصمد بارك الله فيك تقبل تحياتي ... شرح جميل جزاك الله خيرا