ابو اياد ( الاسيوطى )

السلام عليكم الاخ محمد الالفى تم تجريه حل استاذنا ياسر خليل ابو البراء وهو يعمل معى بنجاح وعندك ملحوظه هى الفاصله =IF(OR(SUMIF($E$3:$E$456;E3;$F$3:$F$23)>=2;SUMIF($E$3:$E$456;E3;$G$3:$G$456)>=2);SUMPRODUCT(--($E$3:$E$456=E3));1) تم اضافه حل اخر =IF(OR(SUMPRODUCT(($F$3:$F$9121=F3)*(H$3:$H$9121)^1)>1;SUMPRODUCT(($F$3:$F$9121=F3)*($G$3:$G$9121)^1)>1);"مكرر"&SUMPRODUCT(($F$3:$F$9121=F3)^1);1) التحويلات1.rar

تمت كتابتها يدويا للمعادله الاولى ثم السحب لأسفل

السلام عليكم تم عمل المطلوب من وجهه نظرى ان لم يكن هناك رأى اخر =IF(AND(COUNTIF($F$3:$F$9121;F3);OR(SUMIF($F$3:$F$9121;F3;$H$3:$H$9121)>1;SUMIF($F$3:$F$9121;F3;$G$3:$G$9121)>1));"مكرر"&COUNTIF($F$3:$F$9121;F3);1) التحويلات.rar

الاخ الالفى لا ادرى ان كنت تعلم قواعد المنتدى ام لا على العموم انشىء موضوع جديد حتى يتسنى لجميع الاعضاء رؤيه ملفك ومحاوله مساعدتك

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

ألف مبروك يا استاذنا بجد حاجه جميله جدا ؟؟ وحضرتك تستحقها عن جداره وهذا رابط لمن يريد الاطلاع أكثر https://mvp.microsoft.com/en-US/Overview

السلام عليكم عفوا بعد مراجعه الملف المرفق وجدته الحل القديم وهو غير صحيح تم ارفاق الملف الصحيح الان ارجو من الاداره استبدال مرفقى هذا بالمرفق الذى بالمشاركه اعلاه وألغاء هذه المشاركه بعد استبدال الملف المرفق شكرا ترتيب وفرز بيانات ابو اياد الاسيوطى التصحيح.rar

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

السلام عليكم استاذى ياسر خليل ابو البراء والله اود ان لا اترك المنتدى ابدا ولكن ظروفى لا تسمح لى بالوقت الكافى وان شاء الله فى الفتره القادمه سأحاول ان اكون متواجد دمت بخير

السلام عليكم عفوا استاذنا ياسر خليل أبو البراء صاحب الحلول المبدعه لم ارى مشاركتك قبل ان اضف الرد ولكن ما هذا الابداع حل غير متوقع كنت بصدد التفكير فيه لبرنامج الخصم والتحصيل تحت حساب الضريبه ( الحزمه الذكيه ) حضرتك جمعت فى الحل ما بين اختيار المده المحدده وترتيب النتائج تصاعديا ،،، الله عليك هذا الحل يذكرنى بملك المعادلات استاذنا ( جمال عبد السميع ) ( ابو محمود ) لا اعلم كيف حاله ادام الله له الصحه والسعاده ان شاء الله وجميع الاعضاء واكرر اعتزارى لك اساتذنا ياسر خليل أبو البراء وكل عام وانتم بخير

السلام عليكم جميعا وكل عام وانتم بخير اخى محمد الالفى ارجو ان يكون هذا طلبك دمت بخير ترحيل حسب الترتيب التصاعدى للتاريخ بشرط الفتره المحدده محمود الاسيوطى .rar

السلام عليكم ورحمه الله وبركاته اساتذتى و اخوانى بالمنتدى رأيت على موقع التواصل الاجتماعى ( فيس بوك ) خبر عن وفاه عبقرى من عباقره الاكسيل ( عماد الحسامى ) رحمه الله ان كان الخبر صحيح واطال الله عمره ان كان غير ذلك ورحمنا الله واياكم

مبروك يا نصرى وانت انسان رائع وانتظر المزيد من ترقيات فأنت تستحق اكثر من ذلك بكثير وانا على ثقه من ذلك ؟؟؟ الى الامام يا نصرى

اضم صوتى لأخى الحبيب // احمد النجار

السلام عليكم اخى الكريم ملفك وورد وكمان فارغ وعلى العموم لك هذا الرابط لعل به ما تريد http://www.officena.net/ib/index.php?showtopic=53407#entry336065 ارجو التركيز على مشاركتى رقم 5# انتظرك

السلام عليكم اخى العزيز // محمود الشريف ارجو ان تجد ما يفيدك فى هذا المرفق واعلم بأذن الله عز وجل انه سيفيدك فهذا نتاج عمل ما اسميهم عباقره المنتدى اخى العزيز واستاذى // الشهابى استاذتنا الفاضله // ام عبد الله وقام بالختام الاستاذ الرائع دائما // حماده باشا وطبعا انا مش معاهم العبد الفقير الى الله // محمود الاسيوطى ارجو ان ترى الفكره جيدا عذرا ممكن تكون طويله ولكنها تعمل بكفاءه توصلت أليها بعد معاناه مع اخوتى الاقاضل السالف ذكرهم اعلم جيدا انك ستصل أليها بكل سهوله بأختصار تحديد موعد الحضور يضاف له AM & PM ويكون الادخال بالرقم العشرى تم توليد سلسله زمنيه لتحويل الارقام العشريه الى توقيت اكسيل ارجو ان تفيدك فى حساب وقت العمل والوقت الاضافى لك منى كل التحيه والتقدير وأليك ايضا هذا الرابط http://www.officena.net/ib/index.php?showtopic=52704&hl= وهذا رابط موضوعى الاصلى لعل به من افكار اخرى قد تفيدك http://www.officena.net/ib/index.php?showtopic=51603 وهذا ايضا http://www.officena.net/ib/index.php?showtopic=51828 DATA.rar

السلام عليكم ومليون مبروك على الترقيه المستحقه تقبل تحياتى

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

السلام عليكم اخى فى الله لك ما طلبت وان كان شىء اخر نبهنى أليه !!!! وارجو ان اكون نفذت طلبى اخى العزيز محمد طه واللهى لا اعلم هل هذا ما يريد ام ماذا وعلى العموم انا فى خدمتكم فى انتظاركم Copy of تسوية عهدة 50.rar

البقاء لله وحده ونسأل الله ان يتغمد الفقيده برحمته ، وان يدخلها جنته بدون حساب ولا سابقه عذاب اللهم آمين اللهم تقبل اللهم افرغ صبرا على اهلها ، وعلى ألم فراقها يارب العاملين البقاء لله يا استاذنا // رجب جاويش

استاذى الرائع // شوقى ربيع الكود غير مفعل ولا يعمل حتى بعد مرور التاريخ طبعا مكانه موديل صحيح ام لا هل يمكن تفعيله بنفس طريقه اخى ابو حنين جربتها ولكن لم افلح اضافه هذا الجزء If Date > CDate("1/15/2014") Then Test End If بـ THISWORKBOOK انتظرك

السلام عليكم الاخ العزيز // ابو حنين ( اولا كيف حالك ارجو ان تكون بخير ) ثانيا الكود لا يعمل وعند التاريخ المحدد يهنج الملف ولا يفتح ما تعلمتة من الكود هو مقسوم جزأن جزء فى THISWORKBOOK هو الذى يجعل الكود الذى فى موديل يعمل وعندها يهنج الملف ولا يفتح اضافات جيده وانتظرك بالحل السليم 100%

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

up

السلام عليكم ورحمه الله وبركاته اعضاء الصرح الكبير اوفيسنا الحبيب كيف يمكن تطبيق مثل هذا الكود على الملف المرفق مع العلم انى اريد ان يتم ألغاء جميع المعادلات وخلاياها محميه جميع النطاقات ذات اللون الاصفر بها معادلات ومحميه كيف يمكن ألغاء المعادلات مع الاحتفاظ القيم الموجوده فى الخلايا النطاق A4:I73 بشيت CHARTOFEXPACC النطاق A6:F109 بشيت acc النطاق A6:BX506 بشيت REP النطاق E5:BV16 بشيت TOTAL أليكم الكود الذى اريد تطبيق مثله Private Sub Workbook_Open() If Date >= CDate("15/05/2014") Then Application.ScreenUpdating = False Sheet1.Range("B1:I2880").ClearContents With Sheet2.Range("C8:AA40") .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub كيف يمكن تطبيق هذا الكود.rar