هشام شلبى

السلام عليكم =========== عاش من شافك يوسف بك اعتقد ليس له علاقة عموما جرب وشوف واتمنى من عرضك للعمل كامل ان شاء الله فى المنتدى بعد لمساتك الفنية علية بجد هو عمل جميل من فضلك حمل الملف مرة اخرى شيت كنترول الدور الثانى 2010.rar

السلام عليكم =========== بارك الله فيك ابو البراء الاخ العزيز هذا حلان اخران احدهما بالمعادلات والاخر بالكود افترض ان العدد فى الخلية B2 استخدم الصيغة =IF(ROUND(B2;0)>B2;ROUND(B2;0)-1;ROUND(B2;0)) تفضل المرفقان حذف العلامة والبقاء على العدد.rar بالكود.rar

السلام عليكم =========== شكرا على التنبيه انت لم تثقل على الاطلاق واود انا ايضا الاستفادة

السلام عليكم ========== مشاركتك مكررة واجبتك عليها من قبل وساجيب بنفس الاجابة التى سوف لا ترضى بها وساسالك نفس السؤال التى لم تجبنى عليه من قبل واذا كانت الاجابة خاطئة فاين تلك الخانات التى ذكرتها وما الخطأ فى اجابتى 22.rar

السلام عليكم =========== براعة واقتدار ماشاء الله ابو عبدالله

السلام عليكم ========== بارك الله فيك اخى الحبيب طارق الاخ jazea شاهد المرفق jazea.rar

السلام عليكم ========== بارك الله فيك اخى الحبيب ايسم ملحوظة الطريقة التى فى المشاركة قبل السابقة اعطت ناتج 5 والسيغة فى المشاركة السايقة اعطت ناتج =4 وهو الاصح لما هذا الاختلاف اشكرك على المعادلة الجميلة ولاثراء الموضوع هذا حل اخر نستخدم فيه الصيغة =MONTH(E8)-MONTH(C8) كما وجب علينا التنبية انه فى حالة اختلاف السنة فى اشهر المسدد والغير مسدد ستكون النتائج خاطئة وعلينا استخدام الصيعة =(YEAR(A5)-YEAR(A4))*12+MONTH(A5)-MONTH(A4) كما فى المرفق الثانى عدد الأشهر.rar عدد الأشهر.rar

السلام عليكم ========== مش فاهم يعنى ايه الترحيل شغال تمام كما فى المرفق السابق وكنت موافق انت عليه تم بالفعل كما تريد ولغيت لك المسلسل من الفورم وسيعمل المسلسل اتوما تيكيا بدون اى تدخل منك فى الصباح وبعد انتهاء اوقات العمل ان شاء الله ابدا ابدا كلنا تحت امرك طالب2010علمhh.rar

السلام عليكم =========== الاخت الفاضلة شاهدى المرفق عفاف.rar

السلام عليكم ========== تفضل المرفق New ورقة عمل Microsoft Excel.rar

السلام عليكم ============ تم التنفيذ تم التنفيذ شاهد المرفق لو فى اى ملاحظات ها تكون بالنسبة للقوائم لانها كثيرة يس واحدة واحدة تتظبط ان شاء الله طالب2010علمhh.rar

السلام عليكم ========== رائع يا عمدة

السلام عليكم =========== الاخ العزيز العمل اصبح فى حالة شبه نهائية " لم انتهى منه بعد" شاهد المرفق وجربة تمام ويبقى لك تظبيط قوائمك حتى اظبطها مع الكود طالب2010علم.rar

السلام عليكم =========== بارك الله فيكم جميعا حلول ولا اروع من كده ولاثراء الموضوع هذا حل اخر مقتبس من حلولكم ولكن بكود صغير جدا نعمل "دبل كليك" فى اى مكان فى الشيت يعطى الناتج تاريخ الميلاد من الرقم القومى2.rar

السلام عليكم =========== استاذنا الغالى ابو انس بالفعل هذا ما اريده ولكن كيف معلش الاكسيل اكل دماغى

السلام عليكم =========== الاخ الفاضل شاهد الرابط المنسدلة

السلام عليكم =========== اخى كيماس بارك الله فيك على هذا الموضوع الرائع على بركة الله نشوف الى بعده هنا فى نفس هذا الموضوع

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

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

السلام عليكم ========== اخى العزيز واحدة واحدة المفروض ان خلية الايرادات فى كل الشيت ام تقصد تجميع كل جدول على حدة وتكون خلية الايرادات العلوية مجموع (مجاميع )تلك الجداول او ارفق مثال عملى بالارقام نفسى اساعدك بس مش قادر اوصل للموجود فى " جمجمتك"

السلام عليكم =========== الاخ العزيز يوسف عطا اضفنا زرين كتشنة وفك كتشنة فى صفحة1 الكودين المطبقين غلى الزرين للكتشنة ولفك الكتشنة هما على الترتيب Sub ßÊÔäÉ() Range("B11").Select Range(Selection, Selection.End(xlDown)).Select Range("A10:R330").Sort Key1:=Range("C11"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveWindow.ScrollRow = 1 End Sub Sub Ýß() Range("B11").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Range("A10:R330").Sort Key1:=Range("B11"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveWindow.ScrollRow = 1 End Sub اعذرنى قد حذفت مؤقتا اكواد الحماية على الشيتات لصعوبة العمل عليها فى هذه المرحلة ويمكننا اعادتها بسهولة مرة اخرى تحياتى لشخصكم الكريم شيت كنترول الدور الثانى 2010.rar

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

السلام عليكم =========== الاخ العزيز تفضل المرفق 22.rar

السلام عليكم =========== على بركة الله ابدأ

السلام عليكم =========== الف مبروك استاذ سالم والى الامام