نزار سليمان عيد

اخي الكريم السلام عليكم حسب مافهمت من الشرح ستضع المعادلة ادناه في عمود D =IF(C2<>100,100*2%,100*2%) والمعادلة التالية في عمود E =IF(C2<>100,100+D2,C2+D2) مع ملاحظة تغيير سعر التثبت في المعادلة ففي مثالك عن سابك تم تثبت سعر 100 واي استفسار اعلمني من فضلك

اخي الكريم السلام عليكم انظر للرابط ادناه من اعما اخونا خبور وان شاء الله يفيدك http://www.officena.net/ib/index.php?showtopic=17944&hl= وهذا الرابط ايضا http://www.officena.net/ib/index.php?showt...=14880&st=0 واذا لم يتناسب معاك يفضل ارسال ملف كعينة لاجراء المطلوب

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

اهلا وسهلا بك اخي الكريم في هذا المنتدى اولا ثانيا الكود عبارة عن امر تقوم بانشاؤه في لغة VBA عن طريق Alt و F11 بناء على احتياجاتك في الملف ويوجد شرح للاساتذة في هذا المنتدى حاول عن طريق محرك البحث واهلا بك مرة اخرى

الاخ الكريم ابو ايمان السلام عليكم مشكور على ايضاحك حول المشاركة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=23907&hl= واضفت الرابط هنا لكي يتمكن الاخوة من الاطلاع على ردك مع الشكر للجميع

اخي الكريم السلام عليكم انظر للمرفق _____________.rar

اخي الكريم السلام عليكم انظر للمرفق وان شاء الله يفيدك لوجود طريقتين للتنبيه وهو من عمل احد الاخوة بالمنتدى جزاه الله خيرا فانا محتفظ بالملف على الجهاز ولااعلم لمن المشاركة بالتحديد _________________________________.rar

اخي خبيب الريم السلام عليكم مع احترامي لوجهة نظر الاخوة فانا اتفق مع اخي aah_aah2008 فممكن تطبيق 600 موظف بصفحة واحدة لشهر ما وتطبيق 12 صفحة لاثنا عشر شهرا وبما ان الاخ خبور قام بالتصميم الاول والذي تقوم بتطبيقه الآن فانا متاكد من ان الاخ خبور سيقوم بعمل التعديل اللازم او اي اخ آخر ولكن قم بارسال ملف كعينة وتوضيح ماتريد

اخي الكريم السلام عليكم انظر للمرفق _____________.rar

اخي الكريم السلام عليكم لم يفتح الملف عندي ولكن لكي يتم ارسال الطلب لك حسب سؤالك يجب تضع الكود التالي في كود الارسال كما ذكرت بالاسفل Application.Dialogs(xlDialogSendMail).Show

اخي الكريم السلام عليكم انظر للملف المرفق مع الشرح للتصفية المتقدمة وهو من اعمال اخونا الحبيب ابوتامر شفاه الله وعافاه ____________________.rar

اخي الكريم السلام عليكم انظر للملف المرفق كلمة السر على VBA 123 وعلى الصفحة 123 وبداخلها الكود الخاص بتجاهل الحماية على الصفحة وعلى الكود في VBA مع الشكر _______________1.rar

السلام عليكم مشكور اخي الغالي على هذه المشاركة الرائعة وبالتوفيق

[ مشكور اخى الغالى على شرحك بس هل يمكنك ان تشرح لى كيفية تعديل الماكرو المذكور حيث اريد ان اعدل مكان وضع الماكرو الخاص بكلمة الذهاب الى الصفحة 2 فكيفية تعديل الكلمة و تعديل المكان مشكور اخى الكريم مرة تانية على سرعة مبادرتك

اخي الكريم السلام عليكم هذا يتم بلغة VBA ذلك من خلال ضغط زر Alt و F11 ولو ارسلت جزء من ملفك الاصلي مع توضيح التعديلات حتى من ايميلك الخاص بالشركة فستجد الحل ان شاء الله بالنسبة لفكرة الكود انظر للشرح بالمرفق لعلك تستفيد والا ارسل جزء من ملفك ليتم التعديل عليه انظر للمرفق مع الشرح number11.rar

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

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

خي الكريم السلام عليكم جرب المرفق number1.rar

اخي الكريم السلام عليكم شرح الكود Sheets("Sheet1").Select Sheets("Sheet2").Visible = False في الفقرة اعلاه يتم اختيار الصفحة 1 واخفاء الصفحة 2 Dim x x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena") If IsNull(x) Or x <> 5 Then MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly Sheets("Sheet2").Visible = False Sheets("Sheet1").Select في الكود اعلاه يتم ظهور رسالة تفيدك باضافة كلمة السر ويوجد شرط وهو اذا كلمة السر لاتساوي 5 او لم تكتب شئ فتبقى الصفحة 2 مخفية والصفحة 1 هي المفعلة Else If x = 5 Then MsgBox "welcome to sheet2" Sheets("Sheet2").Visible = True Sheets("Sheet2").Select في الكود اعلاه اذا كلمة السر = 5 فقم بعمل ظهور رسالة ترحيبية اظهار الصفحة 2 اختيار صفحة 2 End If End If End Sub في الكود اعلاه نهاية الشرط نهاية الماكرو الاول Sheets("Sheet1").Select Sheets("Sheet2").Visible = False في الكود اعلاه يقوم بالذهاب الى صفحة واحد واخفاء صفحة 2 نهاية الماكرو الثاني مع الشكر

اخي الكريم السلام عليكم انظر للمرفق هل هو ماتقصده number1.rar

اخي الكريم السلام عليكم انظر للمرفق _________________________________________.rar

اخواني جميعا السلام عليكم اخي abuzzouz جزاك الله خيرا اخي mohmd-gadaffi آمين يارب العالمين يرحم والدينا ووالديك وجميع المسلمين اخي cleaver جزاك الله خير اخي خبور خير احبك الله الذي احببتنا فيه ومرورك يشرفني ولمساتك وابداعاتك تسعديني اخي mfawaz مشكور على مرورك اخي احمد يعقوب حياك الله وسهل كل عسير علينا وعليك وعلى جميع المسلمين اخي مزلزل جزاك الله خيرا وشكرا على مرورك اخي abu_ali حياك الله وجاك الله خيرا اخي المالكي333 شكرا على مرورك فكما تعلم اخي عندما وضعت المشاركة اعلم ان هناك اكسيل بالعربي ويقوم بنفس التفصيل ولكن الملف الذي وضعته كمرجع سريع للمعلومة فبدلا من ان ادخل على كل دالة وارى ما تحتويه من معنى جمعت وفصلت بملف واحد وماعليك سوى عملية بحث عن الكلمة مثلا (مضروب) لتصل للمعادلة. وتأكد ان فكرتك التي طرحتها خطرت ببالي ولكن لم اكن لاذكرها لعدة اسباب من ضمنها هو ان هناك دوال لانقوم باستخدامها وذلك لاختلاف المجال والتطبيق على هذه الدوال وبالتالي تركت المجال مفتوح للجميع لكي يتم السؤال عن الدالة ليتم ذكر مثال عليها مع الشكر للجميع ممن رد على المشاركة او شاهد الملف وبانتظار مقترحاتكم لاكمال فكرة اخونا المالكي 333

السلام عليكم اخي ابو تامر لاباس طهور ان شاء الله الله يشفيك ويشفش جميع مرضى المسلمين آمين ، آمين ، آمين .....

اخي الكريم السلام عليكم عن طريق الحماية للخلية مع الاخفاء كما في الصورة ادناه 1.bmp

جزاك الله خيرا ونامل المزيد