قصي

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

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

الأستاذ رجب جاويش حمدا لله على سلامتكم ..... نورت بيتك الله أسأل أن تكون بكامل الصحة والعافيه تقبل وافر إحترامى

ارجو منك اخي الكريم ان تفتح محرر الفيجوال للتعلم واشكرك على نشاطك بارك الله لك ولك خالص شكري

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

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

رد استاذ شعبان عطيه تحيه طيبة وبعد معنى اساسى 1/9/2012 هو الأساسى الذى تحسب عليه المكافأة وليس 1/7/2012 وذلك حتى يستفيد الذين حصلوا على الدرجه بعد 1/7/12 من دخول العلاوه الى الاساسى الذى تحسب عليه المكافأه وهنا زملاء حصلوا على الدرجة فى 1/9/2012 لهم اضافة علاوة الدرجة الى الأساسى أما من حصلوا على الدرجة بعد 1/9/2012 فتحسب لهم المكافأه على أساسى 1/7/2012 كالزملاء الحاصلين على الدرجة فى 1/11/2012 وهذاهوخطاب وزير الماليه 400469_471774582907261_386191142_n (1).jpg‏ (89.2 كيلوبايت شكرا لك اخي باصر سعيد لردك

احدث وابسط شيت مكافأة طبقا لقرار وزير المالية المصري باحتساب المكافأة على أساسيين للاستاذ الفاضل شعبان عطيه ارجو ان ينال دعواتكم الطيبه ومعه طريقة العمل على الشيت وهو من ابسط الشيتات وأدقها فى حساب المكافأة بمجرد ادخال الأساسى فى 1/9/2012 وأساسى 1/5/2013 ***** شيت المكافأة.rar تعليمات العمل على شيت المكافأة_2.rar

الاخ الفاضل استخدمت هذه الدالة ولم تعمل معى اريد ان اعرف كيف وفيما تستخدم تفضل اخي احصائيات دين.rar

اريد ان اجعل المستند ( الراسبون ) يتم النسخ فيه على سطر وسطر وجزالك الله عنا خير الجزاء اخي الفاضل ------------- أخى الفاضل فى الكود فى الجزء الخاص بالراسبين غير الجزء y = y + 1 الى الجزء y = y + 2

Sub Tarheel() Dim i As Integer, x As Integer Dim lr As Integer, y As Integer lr = [b10000].End(xlUp).Row Sheets("ناجحون").Range("a9:ho1000").ClearContents Sheets("راسبون").Range("a9:ho1000").ClearContents Application.ScreenUpdating = False x = 9: y = 9 For i = 9 To lr If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("ناجحون").Range("a" & x).PasteSpecial xlPasteValues Application.CutCopyMode = False x = x + 1 ElseIf Cells(i, 3).Value = "له دور ثان" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("راسبون").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 1 End If Next i MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون" Application.ScreenUpdating = True End Sub بداية الكود Sub Tarheel() السطور التالية خاصة بتعيين متغيرات لتخزين البيانات من نوع أرقام صحيحة Integer Dim i As Integer, x As Integer Dim lr As Integer, y As Integer السطر التالى لتحديد اخر صف يحتوى على بيانات lr = [b10000].End(xlUp).Row السطرين التاليين لمسح بيانات صفحة ناجحون وراسبون قبل نسخ البيانات اليهما Sheets("ناجحون").Range("a9:ho1000").ClearContents Sheets("راسبون").Range("a9:ho1000").ClearContents السطر التالى يعمل على ايقاف اهتزاز الشاشة ( لتسريع الكود ) Application.ScreenUpdating = False السطر التالى يعطى قيمة للمتغيرين x و y وهى تساوى 9 ( أول صف يتم فيه لصق البيانات المنسوخة فى صفحة ( ناجحون ) وصفحة ( راسبون ) x = 9: y = 9 السطر التالى بداية حلقة تكرارية تبدأ من الصف التاسع الى lr ( اخر صف يحتوى على بيانات ) For i = 9 To lr وتنتهى هذه الحلقة التكرارية بالكلمة next السطر التالى يختبر قيمة الخلية المحتوية على نتيجة الطالب If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then فاذا كانت تحتوى على كلمة ناجح وخلية اسم الطالب ليست فارغة يقوم بنسخ الصف بالكامل الذى توجد فيه الخلية عن طريق السطر التالى Range("a" & i).Resize(1, 223).Copy السطر التالى يعمل على لصق البيانات المنسوخة الى الصفحة ( ناجحون ) Sheets("ناجحون").Range("a" & x).PasteSpecial xlPasteValues السطر التالى يعمل على ايقاف خاصية النسخ واللصق Application.CutCopyMode = False السطر التالى يزيد قيمة المتغير x بمقدار واحد x = x + 1 الجزء الباقى من الكود تكرار الخطوات السابقة ولكن مع الراسب السطر التالى خاص باظهار رسالة توضح اكتمال عملية فصل الناجحون والراسبون MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون" السطر التالى يعيد مرة اخرى خاصية اهتزاز الشاشة Application.ScreenUpdating = True نهاية الكود End Sub الشرح لاخيكم / رجب جاويش

الف مليون مبروك علي الترقية المستحقة ويارب مزيد من التقدم ... اكثر وأكثر

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

جزاك الله كل خير واهديك هذه الباقه من النغمات الطيبه للمحمول

بارك الله لك

جزاك الله خيرا من فضلك فك الحمايه

فكره رائعه وفقك الله وبارك لك

بارك الله لك

ألف حمداً لله على سلامتك وعودتك الميمونة الى عرينك عرين الابداع والتميز

وحشنا الاخ عماد الحسامى

اللهم رب الناس أذهب البأس إشف انت الشافى لا شفاء الا شفاءك شفاءا لا يغادر سقما آمين آمين آمين

جزاك الله خيرا وبارك فيكم

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