عز أبو أنس

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

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

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

اخى / ضاحي الغريب

بارك الله فيك

أستاذنا الغالي : عبد الباري البنا ....

بارك الله في حضرتك وجعل جميع أعمالك في موازين حسناتك

البرنامج أكثر من رائع 

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

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

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

ايه الأنتي بتاعك

35 دقائق مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي الكريم عز أبو أنس .. وجزيت خير الجزاء

 

أخي الغالي حسام : رسالة لحبيب غائب ليوم القيامة (غبت عنا لكن أعمالك خالدة .. فاللهم اجعلها في ميزان حسناتك يوم القيامة اللهم آمين)

 

اللهم أميييين

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

شرح 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

السلام عليكم ورحمة الله وبركاته

أخي الفاضل استاذ // محمد أبو البراء

أنا حاولت أعمل كما قلت ولكن المحاولة فشلت ( اريد ذلك حتي من باب المعرفة)

هل ممكن يتنفذ ذلك بالأكواد ولا الأمر صعب 

لو سمحت حاول مساعدتي

لو سمحت ممكن الشيت بتاعك بالكامل يكون أكواده مفتوحة ( للإستفادة من بعض الأكواد الموجودة فيه)