Yasser Fathi Albanna

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

أ / جمال عودا حميدا بأعمالك الرائعة وكل سنة وحضرتك طيب

أخى الحبيب الغالى / ياسر خليل أخى الفاضل / مختار جزاكم الله خيرا ورمضان كريم

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

للرفع ولكم خالص الشكر والتقدير

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

برنامج لإدارة المشتريات والمخازن.rar

أخى الحبيب ياسر فى البداية كل عام وحضرتك بخير وصحة وسعادة أعاده الله عليكم بالخير واليمن البركات ورمضان كريم نظرا لكبر مساحة الملف سوف أقوم برفعة على رابط خارجى والملف عبارة عن تقرير مبيعات به مجموعة من أسماء المندوبين مبيعاتهم فى شركات مختلفة الشيت يوضح مثال لمندوب بعينه تم إختيارة من المندوبين وأمامه الشركات وأهداف كل شركة على حدا ما أطلبه هو كود لسحب محققات المندوب المحدد بالشيت ووضعها بخانة المحقق بكل شركة من الشركات التى أمامه وقد تفضلت حضرتك فى مشاركة سابقة بعمل كود ممتاذ موجود بالمرفق يقوم بعمل اللازم ولكنه بطيئ جدا وقد زكرت حضرتك فى المشاركة السابقة أنه ممكن تسريع عمل هذا الكود ويقوم أيضا بالمطلوب أخى الحبيب ياسر جزاك الله خيرا رابط الملف http://www.mediafire.com/download/9tlxd6ueehtab3k/Sales+Report+Achievement.rar

سلمت يمينك أخى الفاضل / على الشيخ جزاك الله خيرا

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

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

عمل رائع وكل عام وأنتم بخير جزاك الله خيرا

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته وكل عام وحضراتكم بخير وصحة وسعاده أعاده الله عليكم بالخير واليمن والبركات لقد طرحت موضوع من قبل وهو عبارة عن نقل بيانات من داتا تقرير بيعى إلى شيت مصمم من قبلى وقد تفضل الأخ والأستاذ القدير / ياسر خليل بعمل لى كود ممتاذ يقوم نقل البيانات صحيحة تماما ولكن الكود يأخذ وقت كبيير فى نقل البيانات أ / ياسر خليل ممكن التفضل بجعل الكود الأتى يقوم بنفس المهام ولكن يكون سريع ولك منى خالص الشكر والتقدير مع وافر التحية الكود Sub SUMIFSVBA() Dim Cell As Range Dim LR As Long Dim rngNetValue As Range Dim rngNames As Range Dim rngGroup As Range Dim X As Double, Y Dim ICol As Long LR = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row Set rngNetValue = Sheet1.Range("F2:F" & LR) Set rngNames = Sheet1.Range("L2:L" & LR) Set rngGroup = Sheet1.Range("C2:C" & LR) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False On Error Resume Next For ICol = 5 To 137 Step 3 For Each Cell In Sheet2.Range("A6:A49") If IsNumeric(Cell) Then Y = Application.WorksheetFunction.Index(Rows(4), 1, Cell.Offset(, ICol - 1).Column - 1) X = Application.WorksheetFunction.SumIfs(rngNetValue, rngNames, Cell.Offset(, 1), rngGroup, Y) Cell.Offset(, ICol - 1).Value = X End If Next Cell Next ICol MsgBox "تم بحمد الله" Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub