Yasser Fathi Albanna

للرفع ولسيادتكم خالص الشكر والتقدير هل يوجد شيء فى المطلوب غير واضح الرجاء الإفادة

للرفع جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته السادة الأفاضل أساتذتى الكرام تحية طيبة وبعد مرفق شيت به كود أريد تعديلة ليتماشى مع المطلوب داخل الشيت ولسيادتكم خالص الشكر والتقدير Function Ali(Ln As Long, Vl, Bl As String, Bln As Boolean) Dim Shet As Worksheet Dim Do_Ali Dim Ar() As Variant Dim iCnt& Dim X, A Set Shet = Sheets("Report") Set Do_Ali = CreateObject("Scripting.Dictionary") With Application .ScreenUpdating = False .EnableEvents = True DoEvents With Shet Lr = .Cells(.Rows.Count, 2).End(xlUp).Row Ar = .Range("A2:F" & Lr).Value: A = Bl For R = LBound(Ar, 1) To UBound(Ar, 1) If Ar(R, 3) = A Then If Not Bln Then X = IIf(Vl = 3, X + 1, IIf(Vl = 4, X + Ar(R, 6), X + 1)) If Do_Ali.exists(Ar(R, Ln)) Then Do_Ali.Item(Ar(R, Ln)) = Do_Ali.Item(Ar(R, Ln)) + 1 Else Do_Ali.Add Ar(R, Ln), 1 End If End If Next Ali = IIf(Vl = 1, Do_Ali.Count, X) End With .ScreenUpdating = True .EnableEvents = False End With Erase Ar Set Do_Ali = Nothing Set Shet = Nothing End Function Sub Ali_Count() Dim Sh As Worksheet Dim R, Rr, Cll Set Sh = Sheets("Rank") With Sh Rr = 10: Cll = 24 For R = Rr To Cll If .Cells(R, 2) <> "" Then .Cells(R, 4) = Ali(1, 4, .Cells(R, 2), False) .Cells(R, 9) = Ali(1, 3, .Cells(R, 2), False) .Cells(R, 14) = Ali(4, 1, .Cells(R, 2), True) .Cells(R, 19) = Ali(1, 1, .Cells(R, 2), True) End If Next End With MsgBox "Greetings with Engineer / Yasser Fathi Al-Banna " End Sub Sub ClearConstants_1() Dim Sh As Worksheet Dim Rr, Cll Set Sh = Sheets("Rank") With Sh Rr = 10: Cll = 24 Union(.Range(Cells(Rr, 4), Cells(Cll, 4)), .Range(Cells(Rr, 9), Cells(Cll, 9)), _ .Range(Cells(Rr, 14), Cells(Cll, 14)), .Range(Cells(Rr, 19), Cells(Cll, 19))).ClearContents End With MsgBox "Greetings with Engineer / Yasser Fathi Al-Banna " End Sub Rank.rar

سلمت يمينك أخى الحبيب / سمير نجار معادلة رائعة شكرا جزيلا

أخى وأستاذى ومعلمى القدير / حماده عمر السلام عليكم ورحمة الله وبركاته شرح أكثر من رائع سلمت يمينك و أدام الله عليك الصحة والعافية تقبل خالص تحياتى وتقديرى

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد أحبائى الأعزاء إخوانى وأخواتى فى الله يا رب تكونو جميعا بخير تغيب كثيرا عن المنتدى العظيم صاحب الفضل عليا فى تعليمى الكثير والكثير وذلك لكثرة ضغوط الشغل مرفق ملف إكسيل به تاريخ أريد تعديلة إلى شكل مجاور له موضح بالمرفق ولسيادتكم خالص الشكر والتقدير Date.rar

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

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

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

ألف ألف مليون مبروك الأخ الفاضل / عبد السلام أبو العوافي على الترقية المستحقة مع مزيد من التقدم والرقى

اخى وأستاذى ومعلمى القدير / ضاحى الغريب طالت غيبتك ربنا يطمنا على حضرتك كل عام وحضرتك والأمة الإسلامية جميعا بخير أعاده الله علينا جميعا بالخير واليمن والبركات

ماشاء الله أخى الحبيب / الصقر جزيت خير الجزاء على كل ما تقدمه من أعمال فى غاية الروعة والجمال تقبل خالص تحياتى وتقديرى لشخصكم الكريم

بارك الله فيك وأدام عليك الصحة والعافية أخى الحبيب الغالى / ياسر خليل تقبل تحياتى

أخى وحبيبى وأستاذى ومعلمى الغالى / ياسر خليل ما شاء الله تبارك الله زادك الله من فضله وعلمه شرح أكثر من رائع وموضوع فى غاية الأهمية مع إنها متأخرة شوية بس حضرتك عارف الظروف تقبل خالص تحياتى وتقديرى

اخى الحبيب الغالى أ / حسام عيسى بارك الله فيك شرح أكثر من رائع تقبل خالص تحياتى وتقديرى

أخى الحبيب الغالى أستاذى ومعلمى القدير / ياسر خليل أشكرك شكرا جزيلا على سؤالك الدائم عليا أدام الله بيننا المحبة والأخوة المنتدى كله منور بنور بحضرتك فأنت دائما شعلة النشاط التى تدفعنا دائما للتعلم والإستفادة يوميا من هذا المنتدى العظيم أثابك الله الفردوس الأعلى تقبل خالص تحياتى وتقديرى

حبيبى الغالى أ / ياسر العربى

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

أحبائى فى الله أحبائى الكرام محمد ابو صهيب أحمد الفلاحجى الصـقر زيزو العجوز ياسر العربى رجب جاويش جلال الجمال_ابو أدهم صلاح المصرى سعد عابد لا أرى كلام يعبر عن مدى سعادتى بشعورى أننى بين إخوتى أدام الله بيننا الأخوة والمحبة ولا أراكم الله مكروه فى عزيز لديكم عظم الله أجركم وأشكركم جميعا على مشاعركم النبيلة ودعائكم الطيب إن لله وإن إليه راجعون قدر الله وما شاء فعل

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

السلام عليكم ورحمة الله وبركاته أسعد الله صباحكم بكل خير اللهم أنت ربي لا إله إلا أنت، خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت، أعوذ بك من شر ما صنعت، أبوء لك بنعمتك علي وأبوء بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت رَبَّنَا إِنَّنَا آمَنَّا فَاغْفِرْ لَنَا ذُنُوبَنَا وَقِنَا عَذَابَ النَّارِ

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

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

أستاذى الفاضل / مجدى يونس حملت الأسطوانة كاملة وعند تشغيلها يظهر لى الرسالة التالية وقمت بتحميل البرنامج AutoPlay Media Studio 8 Trial وتفعيلة وعند تشغيل الأسطوانة تظهر لى نفس الرسالة وأنا أعمل على ويندوز 10 بروفيشنال 32 بت الرجاء الإفادة