mhrrd

هذا هو الملف وقد غيرت في الكود حسب شرحكم ولم يعمل معي ماهي الجزئيه الناقصه لكي يعمل جيدا test2.rar test2.rar

كافأك الله بكل خير انا احاول جاهدا ان افهمها لانني بسيط جدا في الاكواد ويارب يسرها لي وللجميع وان لم استطع ساكتب لك ان شاء الله

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

اشكرك كثيرا اخي الحبيب نادر ولكن هل افهم من هذا ان النسخه الجديده سيكون بها ملفات العلامه خبور ان شاء الله لك شكري وتقديري

أعطنى مثال عما تريد فى ملف ونا أحاول أطبق معاك الكود بناء على المطلوب شكرا لردك وسأوافيك بالملف ان شاء الله

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

ندعو الله ان تضع في النسخه الجديده هذه الاعمال للعالم العلامه خبور خير

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

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

اشكرك كثيرا واريد ان ثضعه في ملف لو تكرمت

Sub Khboor_Tarheel() '============================================= ' الية الكود بعد الترحيل يقوم بمسح البيانات التي تم ترحيلها On Error Resume Next Application.ScreenUpdating = False For a = 11 To [a3000].End(xlUp).Row If Cells(a, 1) <> "" Then MySheets = Cells(a, 1) With Sheets(MySheets).[a3000].End(xlUp) .Offset(1, 0) = Cells(a, 1) .Offset(1, 1) = Cells(a, 2) .Offset(1, 2) = Cells(a, 3) .Offset(1, 3) = Cells(a, 4) .Offset(1, 4) = Cells(a, 5) .Offset(1, 5) = Cells(a, 6) .Offset(1, 6) = Cells(a, 7) .Offset(1, 7) = Cells(a, 8) .Offset(1, 8) = Cells(a, 9) .Offset(1, 9) = Cells(a, 10) .Offset(1, 10) = Cells(a, 11) .Offset(1, 11) = Cells(a, 12) .Offset(1, 12) = Cells(a, 13) .Offset(1, 13) = Cells(a, 14) .Offset(1, 14) = Cells(a, 15) .Offset(1, 15) = Cells(a, 16) .Offset(1, 16) = Cells(a, 17) .Offset(1, 17) = Cells(a, 18) .Offset(1, 18) = Cells(a, 19) .Offset(1, 19) = Cells(a, 20) .Offset(1, 20) = Cells(a, 21) .Offset(1, 21) = Cells(a, 22) .Offset(1, 22) = Cells(a, 23) .Offset(1, 23) = Cells(a, 24) .Offset(1, 24) = Cells(a, 25) .Offset(1, 25) = Cells(a, 26) .Offset(1, 26) = Cells(a, 27) .Offset(1, 27) = Cells(a, 28) .Offset(1, 28) = Cells(a, 29) .Offset(1, 29) = Cells(a, 30) .Offset(1, 30) = Cells(a, 31) .Offset(1, 31) = Cells(a, 32) .Offset(1, 32) = Cells(a, 33) .Offset(1, 33) = Cells(a, 34) .Offset(1, 34) = Cells(a, 35) .Offset(1, 35) = Cells(a, 36) .Offset(1, 36) = Cells(a, 37) .Offset(1, 37) = Cells(a, 38) .Offset(1, 38) = Cells(a, 39) .Offset(1, 39) = Cells(a, 40) End With End If ' If Sheets("ورقة1").Cells(a, "a") > "" Then Cells(a, 3).Resize(1, 4).Value = "" ' اذا اردت مسح البيانات بعد الترحيل حفز هذا السطر Next a Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" Range("a1").Select On Error Resume Next On Error GoTo 0 End Sub السلام عليكم لم أفهم ، ماذا تعني؟ الكود الأصلي لاستاذنا الكبير خبور، تغير كثيرا الآن أرجو التوضيح اقتباس جزاك الله كل خير وبارك لك هذا هو الكود والملف موجود بالمشاركه رقم15 لو نظرت في الملف تجد ان العمود A به المعيار مثل ناجح ودور تان وغير ذلك اريد ان اضع هذه المعايير في عمود آخر فأين الجزئيه التي اغير منها مع رجاء اضافه ميزة المسح

اكثر الله من خيرك استاذ طارق ** لو سمحت طبق هذه التغييرات على الكود الاصلي الخاص بالاستاذ خبور لانني ارى امامي فيه الاعمده التي اود ان اضيفها او ازيلها بعد اذنك جزاك الله خيرا

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

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

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

يارب سهل الامور

قفلت واللا ايه حلوها لو سمحتم

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

مرحبا بك في بيتك اخي عادل وأدعو الله ألا يبعدك عنا في المستقبل فلقد تعلمنا منك الكثير وفقك الله وسدد خطاك

لو تكرمتم اي الحلين موافق ولكن اريد حلا

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

أو ايجاد كود للتوزيع ويكون به هذه الميزة .. لو تكرمتم

لو تكرمتم ارجو اضافة جزئيه في كود التوزيع العشوائي انه عند الضغط على زر DO JOB ونكون قد كتبنا يدويا حرف الحاء لبعض الاسماء يتم التوزيع كاملا مع ترك هذه الاحرف ليكونوا احتياطيا وجزاكم الله كل خير

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

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