Yasser Fathi Albanna

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

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

أخى aghanem2003 جزاك الله خير على مرورك العطر ودعائك الطيب

السلام عليكم ورحمة الله وبركاته أحبائى وأساتذتى وأعضاء هذا الصرح العلمى الهائل تحية طيبة وبعد مرفق شيت يوضح المطلوب ولكم خالص الشكر والتقدير معادلة تسلسل.rar

دعاء لأستاذنا الغالى رحمه الله / عماد الدين الحسامى

أ / خالد الرشيدى

جزاك الله خيرا أخى الحبيب الزباري على مرورك الدائم

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

شكرا لمرورك العطر أخى الفاضل / محمد عبد السلام شرفت بمرورك شرفت بمرورك أخى الكريم الزباري وشكرا لدعائك الطيب شكرا لك أخى الكريم لمرورك العطر

سلمت يمينك يا غالى جزاك الله خيرا

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

تم الإرسال فى رسالة خاصة

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

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

انا خلصت الواجب أرفق الملف

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

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

أستاذى الفاضل / الـعيدروس كنت من قبل طلب سحب داتا فى شيت أخر وعملت به زر لمسح الداتا المنقولة أى إفراغها وتفضل الأستاذ القدير الحبيب / ياسر خليل بهذا الكود Sub ClearConstants() Dim Rng As Range, Arr, I As Long, J As Long With Sheets("Rank") Set Rng = .Range("A9:S28") Arr = Rng.Formula End With For I = 1 To UBound(Arr, 1) If IsNumeric(Arr(I, 1)) Then For J = 4 To 19 Step 3 Arr(I, J) = "" Next J End If Next I End Sub وقمت بتنفيذه على الشيت الذى تفضلت حضرتك أستاذى القدير / العيدروس بعمل الكود له ولم أفلح فأين الخطأ ولسيادتكم خالص الشكر والتقدير ولى طلب أخر هل يمكن إضافة رسالة ترحيب مثل ( تم بحمد الله ) فى الكود الأول 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 Set Sh = Sheets("Rank") For R = 10 To 28 With Sh 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 End With Next Set Sh = Nothing End Sub

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

موضوع رائع ومفيد أخى الغالى / مختار أدام الله عليك الصحة والعافية جزاك الله خيرا

اخى الحبيب الغالى أ / ياسر خليل دايما تاعبك معايا مرفق رابط أخر وموضح به النتائج المتوقعة http://www.mediafire.com/download/xjfce1kxlw9lzzu/Report.rar

الله عليك يا أ / محمد ما شاء الله زادك الله من العلم الكثير والكثير

الله عليك يا أ / سليم ما شاء الله تبارك الله زادك الله من العلم الكثير والكثير جزاك الله خير

السلام عليكم ورحمة الله وبركاته إخوانى وأحبائى الأعزاء أستاذتى وأعضاء هذا المنتدى العظيم تحية طيبة ووبعد يوجد لدى تقرير مبيعات تفصيلى يوجد به داتا معينه صممت بجواره Rank يقوم بتقييم المندوبين حسب مبيعاته مالى وعدد عملاء وعدد أصناف وعدد عملاء مكررة أى عدد زيارت ناجحة الرجاء من سيادتكم النظر إلى الرابط التالى وبه المرفق وعزرا لعدم إرفاقه بالمنتدى لكبر حجمه أريد من سيادتكم كود برمجى ينفذ المطلوب بالمرفق ولسيادتكم خالص الشكر والتقدير http://www.4shared.com/rar/iABxXqB0ce/Report.html

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