عز أبو أنس

كل سنة وانت طيب رمضان كريم

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

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

اخى / ضاحي الغريب بارك الله فيك

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

وكل عام وأنت بخير

جزاك الله كل خير استاذ خبور خير

وكله بفضل الله أولاً ثم منتداكم الكريم ايه الأنتي بتاعك اللهم أميييين

الملف يعمل ولكن أغلق الأنتي فيرس حتي يعمل الملف

شرح topten فيديو الاوائل فيديو.rar

تفضل تعديل لدالة topten TOPTEN.rar

بارك الله فيك

أرجو تحديث الرابط مع فتح أكواد الشيت للإستفادة من الأكواد

الرابط لا يعمل

بارك الله فيك أخي الحبيب

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

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

بارك الله فيك اخى

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

أرجو من خبراء المنتدي التعديل علي هذا الكود الجميل الذي إكتشفته في منتداكم الجميل لأنه يمكنك التحكم في كل لجنة علي حدي 1- أريد تنسيق اللجان في كل اللجان كما هو في اللجنة الأولي (مرفق الملف ) لأن الكود لايعمل هذا 2- يحسب عدد المسلمين والمسحيين أسفل مسلم - مسيحي (مرفق الملف ) في كل لجنة توزيع اللجان.rar

بارك الله فيك وكن نفسي تكون اللجان متنسقة بحدود ده لو أمكن

السلام عليكم ورحمة الله وبركاته أخي الفاضل استاذ // محمد أبو البراء بارك الله فيك وزادك الله بالعلم الكثير

السلام عليكم ورحمة الله وبركاته أخي الفاضل استاذ // محمد أبو البراء يا سلام عليك مش عارف أشكر إزاي بارك الله فيك وزادك الله من فضله هل ممكن تطبيقها بأكواد البيسك

السلام عليكم ورحمة الله وبركاته أخي الفاضل استاذ // محمد أبو البراء بالنسبه للشيت بتاعك في بعض الأكواد مفقودة عند تنفيذ ذلك علي الأزرار أو عير مرتبطة بأي كود بالمرة وإن كان ده هزعلك مش مشكلة الموضوع الثاني أدي الكود Sub Start_Circles() Dim x As Integer, d As Integer Dim Col As Range Dim MyRng As Range Dim M_Rng As Range Dim roRng As Range '================================================ Set M_Rng = ActiveSheet.Range("J12,J24,J36") Set MyRng = ActiveSheet.Range("E16:P16,E28:P28,E40:P40") '================================================ Remove_Circles '================================================ Myrow = 15 x = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each Col In MyRng If IsNumeric(Cells(Myrow, Col.Column)) And Not IsEmpty(Cells(Myrow, Col.Column)) And (Val(Col) < Val(Cells(Myrow, Col.Column)) Or Val(Col.Value = "غ") Or Col.Offset(1, 0) = "دون المستوى") And Col <> "" Then kh_Add_Circles Col d = d + 1 End If For Each roRng In M_Rng If Col.Offset(1, 0) = "دون المستوى" And Val(Col.Value) >= Val(Cells(Myrow, Col.Column)) Then roRng.Value = "راسب بالقانون" Next roRng Next Col ActiveWindow.Zoom = x Application.ScreenUpdating = True Set MyRng = Nothing End Sub

السلام عليكم ورحمة الله وبركاته أخي الفاضل استاذ // محمد أبو البراء أنا حاولت أعمل كما قلت ولكن المحاولة فشلت ( اريد ذلك حتي من باب المعرفة) هل ممكن يتنفذ ذلك بالأكواد ولا الأمر صعب لو سمحت حاول مساعدتي لو سمحت ممكن الشيت بتاعك بالكامل يكون أكواده مفتوحة ( للإستفادة من بعض الأكواد الموجودة فيه)