احمد فضيله

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

ولكن ليوجد عنده الدرايف C:ما هو العمل؟ و عليكم السلام و رحمة الله و بركاته اخي الفاضل /zine pef جزاك الله خيرا على كلماتك الطيبة و مرورك الكريم ان شاء الله مفيش مشكله .. سأقوم بتعدل ال Workbook و رفعه لك و على العموم هو هيشتغل عادي .. مفيش مشكله بس بعض الروابط هتكون واقفه و الله المستعان السلام عليكم و رحمة الله و بركاته فقط قمت بتعديل المسار في Module6 على سبيل المثال : FolderName = ("C:\My Insurance 2011\Insurance Companies\03 - قناة السويس") و هذا المسار خاص بالازرار الموجوده في ورقات العمل المختلفة و هو لفتح المجلد مباشرة من خلال الاكسل في Module7 Workbooks.Open ("C:\My Insurance 2011\Calender\Calender 2011.xls") و قمت باضافة مجلد ل Calender ملاحظة : يمكن من خلال تغير رمز الدرايفر نقل المجلد لأي درايفر يريده المستخدم و الله المستعان و السلام عليكم و رحمة الله و بركاته

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

السلام عليكم و رحمة الله و بركاته فقط قمت بتعديل المسار في Module6 على سبيل المثال : FolderName = ("C:\My Insurance 2011\Insurance Companies\03 - قناة السويس") و هذا المسار خاص بالازرار الموجوده في ورقات العمل المختلفة و هو لفتح المجلد مباشرة من خلال الاكسل في Module7 Workbooks.Open ("C:\My Insurance 2011\Calender\Calender 2011.xls") و قمت باضافة مجلد ل Calender ملاحظة : يمكن من خلال تغير رمز الدرايفر نقل المجلد لأي درايفر يريده المستخدم و الله المستعان My Insurance 2011.rar

السلام عليكم و رحمة الله و بركاته أخي الفاضل / zine pef المعادلة الموجودة في المرفق هي =IF(A2>0;ROW()-1;"") ارجو افادتك و الله المستعان

ولكن ليوجد عنده الدرايف C:ما هو العمل؟ و عليكم السلام و رحمة الله و بركاته اخي الفاضل /zine pef جزاك الله خيرا على كلماتك الطيبة و مرورك الكريم ان شاء الله مفيش مشكله .. سأقوم بتعدل ال Workbook و رفعه لك و على العموم هو هيشتغل عادي .. مفيش مشكله بس بعض الروابط هتكون واقفه و الله المستعان و السلام عليكم و رحمة الله و بركاته

يجب تعديل مستوي الحماية الى اقل درجة قائمة Tools ثم Macro ثم Security ثم Low

السلام عليكم و رحمة الله و بركاته اخي الفاضل / yaser2010 تفضل الحل بالمرفق .. و ارجو النظر الى المعدل هل هو ما تريده ؟ والسلام عليكم و رحمة الله و بركاته HaNcOcK.rar

السلام عليكم و رحمة الله و بركاته اقدم لاخواني الاعزاء في هذا الصرح العلمي : workbook يصلح لمن يعمل في مستندات تحتاج لمتابعة وتجديد مستمر هام : لكي تعمل كل الروابط يفضل وضع المجلد في الدرايف D: وأحب ان تلاحظوا ما يلي : اولاً : اشكر الله عز وجل ثم اشكر كل من ساعدني, فهناك الكثير ممن ساعدوني من اخواني بالمنتدي و اخواني بالعمل ثانياً : أرجو من الله عز و جل ان يكون هذا العمل مفيد لكل مسلم ثم أرجو من إخواني الاعزاء استخدامه في اوجه الخير ( بعيداً عما يغضب الله مثل البنوك و التأمين ... و ما شابه ذلك ) و الله الموفق و المستعان My Insurance 2011.rar

ربنا يوفقك

إن لله وإنا إليه راجعون

في انتظارك

السلام عليكم شكرا للجميع لاثراء هذا الموضوع و شكرا لصاحب الموضوع لاحظت في هذه المشاركة استعمال الدالة =SI(B5>0;LIGNE()-1;"") و تكفي وضعها في الصفوف الأربعة الأولى فقط ثم هي تطبق نفسها الى الصف الأخير اين هو سر هذه من فضلكم؟ السلام عليكم و رحمة الله و بركاته اخي الفاضل zine pef ارجو توضيح ما تريده او ارفاق الملف الذي يحتوي على هذه المعادلة انا جربت المعدلة و هي لا تعمل و لم اجدها في المشاركات و الله المستعان

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

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

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

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

بارك الله فيك

بارك الله فيك

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

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

نسأل الله لك التوفيق

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

اللهم ارحمه رحمة واسعه , فأنت ولي ذلك و القادر عليه

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