كود استدعاء الناجحين والدور الثاني

[سـامي 169]

كرما منكم

اريد كود استدعاء الناجحين والدور الثاني

في هذا المرفق جزاكم الله خيرا

 

استدعاء بيانات الناجحين والدور الثاني.rar

[القومي]

السلام عليكم

اليك كود ترحيل من العلامة خبور عدلتة على ملفك

 

ترحيل مفيد باختبار اعمدة معينة.rar

[سـامي 169]

Sub HH_START()
Dim b As Integer, M As Integer
    Sheets("كشف ناجح").Range("c7:m1000").ClearContents
        Sheets("كشف الدور الثاني").Range("c7:m1000").ClearContents
                    M = 7: b = 7
        Application.ScreenUpdating = False
    For R = 1 To 1000
                      If Cells(R, 113) = "ناجح" Then
            Range("A" & R).Range("b1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,df1,di1").Copy
            Sheets("كشف ناجح").Range("c" & M).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            M = M + 1
            End If
            If Cells(R, 113) = "دور ثان في" Then
             Range("A" & R).Range("b1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,df1,di1").Copy
            Sheets("كشف الدور الثاني").Range("c" & b).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            b = b + 1
               End If
    Next
 
    MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ")
    Application.ScreenUpdating = True
End Sub

Range("b1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,df1,di1"

لماذا اخترنا هذه الحلايا وخاصه الرقم 1

اخي الكريم القومي

يحفظك الله

لماذا اخترنا هذه الحلايا وخاصه الرقم 1

[خزاني]

جزيت الجنة ان شاء الله

[سـامي 169]

عمود الحاله هو اللي فيه ناجح او دور تان

وعمود ال M  هو اللي هيكون فيه اسماء مواد الدور التاني

اخي الكريم

            If Cells(R, 113) = "دور ثان في" Then

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

والبنت هتكون كلمة المعيار هي .. لها دور ثان في

فكيف نتصرف في هذه الحاله

[سـامي 169]

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

والبنت هتكون كلمة المعيار هي .. لها دور ثان في

فكيف نتصرف في هذه الحاله من اجل ترحيلهم   ارجوكم

تم تعديل يونيو 2, 2015 بواسطه سـامي 169

[القومي]

اخى الكريم

جرب هذا المرفق

ترحيل مفيد باختبار اعمدة معينة.rar

[سـامي 169]

يجزيك الله كل خير اخي القومي اريد ان تتفضل بايجاد حل

 

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

والبنت هتكون كلمة المعيار هي .. لها دور ثان في

فكيف نتصرف في هذه الحاله من اجل ترحيلهم   ارجوكم

[ياسر خليل أبو البراء]

أخي الحبيب القومي

جزيت خير الجزاء على هذ الكود الرائع

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

قمت بتعديلات طفيفة على الكود (لعل الأمر لا يضايقك)

إليكم الكود بالشرح

Sub Nageh_Raseb()
'يقوم الكود بترحيل الناجحين والراسبين في أوراق العمل المخصصة لذلك
'----------------------------------------------------------------
'تعريف المتغيرات
    Dim RowNageh As Long, RowRaseb As Long
    Dim WS As Worksheet, SHNageh As Worksheet, SHRaseb As Worksheet
'تعيين متغيرات أوراق العمل
    Set WS = Sheets("الشيت"): Set SHNageh = Sheets("كشف ناجح"): Set SHRaseb = Sheets("كشف الدور الثاني")
'مسح محتويات النطاق الذي سيتم الترحيل إليه في ورقة الناجحين
    SHNageh.Range("C7:M1000").ClearContents
'مسح محتويات النطاق الذي سيتم الترحيل إليه في ورقة الراسبين
    SHRaseb.Range("C7:M1000").ClearContents
'صف البداية الذي سيتم الترحيل إليه في ورقة الناجحين وورقة الراسبين
    RowNageh = 7: RowRaseb = 7
'إلغاء خاصية اهتزاز الشاشة
    Application.ScreenUpdating = False
'حلقة تكرارية في ورقة البيانات الأساسية بداية من الصف رقم 11 حتى آخر صف
        For R = 11 To WS.Cells(Rows.Count, 1).End(xlUp).Row
'يمثل الرقم 113 رقم العمود الذي به النتيجة في ورقة البيانات الأساسية
'إذا كانت الخلية في الصف المحدد في عمود النتيجة تساوي كلمة ناجح
            If Cells(R, 113) = "ناجح" Then
'نسخ النطاقات المحددة في الصف المحدد في حالة تحقق الشرط
                WS.Range("A" & R).Range("B1:C1,Z1,AI1,AR1,BA1,BL1,BM1,CD1,DI1,DJ1").Copy
'لصق البيانات المنسوخة إلى العمود الثالث في ورقة الناجحين
                SHNageh.Range("C" & RowNageh).PasteSpecial xlPasteValues
'إلغاء خاصية القص والنسخ
                Application.CutCopyMode = False
'زيادة المتغير بمقدار واحد استعداداً لبيانات جديدة
                RowNageh = RowNageh + 1
'إذا كانت الخلية في الصف المحدد في عمود النتيجة تساوي كلمة دور ثان في
            ElseIf Cells(R, 113) = "دور ثان في" Then
'نسخ النطاقات المحددة في الصف المحدد في حالة تحقق الشرط
                WS.Range("A" & R).Range("B1:C1,Z1,AI1,AR1,BA1,BL1,BM1,CD1,DI1,DJ1").Copy
'لصق البيانات المنسوخة إلى العمود الثالث في ورقة الراسبين
                SHRaseb.Range("C" & RowRaseb).PasteSpecial xlPasteValues
'إلغاء خاصية القص والنسخ
                Application.CutCopyMode = False
'زيادة المتغير بمقدار واحد استعداداً لبيانات جديدة
                RowRaseb = RowRaseb + 1
            End If
'الانتقال للصف التالي في ورقة البيانات الأساسية
        Next
'رسالة تفيد بانتهاء عملية الترحيل
        MsgBox ("الحمد لله تم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة"), vbInformation
'إعادة تفعيل خاصية اهتزاز الشاشة
    Application.ScreenUpdating = True
End Sub

الأخ الفاضل سامي طلبك غير منطقي وغير مفهوم ...

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

وهل الترحيل للأولاد في ورقة عمل منفصلة عن الإناث أم ماذا ؟

 

وضح ربنا يبارك فيك ... طلب التوضيح متكرر معك بشكل خاص (إحنا مش عباقرة ولا مكشوف عننا الحجاب !! عشان نعرف كل واحد عايز ايه من غير ما يوضح)

الرجاء التوضيح ثم التوضيح وبالتفصيل إذا أردت فعلاً المساعدة

[أسامة البراوى]

السلام عليكم

انا اظن انه عايز يغير فى العمود الخاص بالنتيجة

وفى الحالة دى ممكن نعدل الشرط للبحث عن جزء من الكلمة "دور ثان"  وسينفذ الكود مهما اضاف قبلها او بعدها (له او لها)

 

 

نضع الكود

ElseIf InStr(1, Cells(R, 113).Value, "دور ثان") Then
         

مكان الكود

ElseIf Cells(R, 113) = "دور ثان في" Then

[سـامي 169]

اشكرك اشكرك اشكرك على ردك  استاذ ياسر وبعد

في صفحة الشيت الموجودة بالمرفق وفي عمودال DI  يوجد 3 معايير

المعيار الاول هو كلمه ناجح  .......... ويتم ترحيلهم الى صفحة كشف ناجح مفيش مشكله

المعيار التاني كلمه له دور ثان في .......... ويتم ترحيلهم الى صفخة كشف الدور الثاني مفيش مشكله

المعيار الثلبث كلمه لها دور ثان في .......... واريد ترحيلهم الى نفس صفحة كشف الدور الثاني

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

[سـامي 169]

الاستاذ اسامه

الله يبارك لك

ويجزيك الله كل خير  ..لم ار مشاركتك جاري التجريب

[سـامي 169]

 

السلام عليكم

انا اظن انه عايز يغير فى العمود الخاص بالنتيجة

وفى الحالة دى ممكن نعدل الشرط للبحث عن جزء من الكلمة "دور ثان"  وسينفذ الكود مهما اضاف قبلها او بعدها (له او لها)

 

 

نضع الكود

ElseIf InStr(1, Cells(R, 113).Value, "دور ثان") Then
         

مكان الكود

ElseIf Cells(R, 113) = "دور ثان في" Then

 استاذ اسامه

صعها في المرفق من فضلك ادام الله عليك الخير

[أسامة البراوى]

المرفق

 

ترحيل مفيد باختبار اعمدة معينة.rar

[سـامي 169]

الله عليك وعلى الدفه يحفظك ربنا استاذ اسامه

ارجو شرحها

ElseIf InStr(1, Cells(R, 113).Value, "دور ثان") Then

وعندى سؤال ارجو التكرم بالاجابه عليه

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

يعني عايز اضع الزر في صفحة كشف الناجح وزر في كشف الدور التاني

[ياسر خليل أبو البراء]

هل تقصد أن يكون كل كود ترحيل منفصل ... كود ترحيل الناجحين منفصل عن كود ترحيل الراسبين ؟

[أسامة البراوى]

المعادلة تبحث عن جزء من الجملة "دور ثان" واذا وجدته ضمن محتوى الخلية بترد  برقم يعبر عن مكانه وفى الحالة دى الدالة if تعتبرها true ويتحقق الشرط طالما كان فيه هذا الجزء مهما كان طول محتوى الخلية

اما اذا لم يجد هذا الجزء فالرد برسالة خطأ تعتبر FALSE

 

وبالنسبة للاستدعاء

يجب تعديل الكود

ترحيل مفيد باختبار اعمدة معينة 2.rar

[سـامي 169]

اكمل الجميل ماهو التغيير الذي تم

[ياسر خليل أبو البراء]

اكمل الجميل ماهو التغيير الذي تم

ممكن تتعب شوية وتقارن بنفسك حتى تتعلم

 

Come easy Go easy

[ياسر خليل أبو البراء]

أخي الحبيب أسامة لم يقم بأي تغيير في الكود

فقط وضع زر وربطه بالكود في أي ورقة والكود في هذه الحالة يعمل على الورقتين معاً ... ولذلك سألت هل تريد ان يكون كل كود منفصل أم لا؟

[سـامي 169]

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

تم تعديل يونيو 2, 2015 بواسطه سـامي 169

[سـامي 169]

الله يحفظكم

تم تعديل يونيو 2, 2015 بواسطه سـامي 169

[ياسر خليل أبو البراء]

أخي الكريم

يضايقني جدا المشاركات المتتالية بدون داعي

كان من الممكن أن تكون المشاركة رقم 21 و 22 في مشاركة واحدة

الرجاء الالتزام بالتوجيهات

[أسامة البراوى]

أخي الحبيب أسامة لم يقم بأي تغيير في الكود

فقط وضع زر وربطه بالكود في أي ورقة والكود في هذه الحالة يعمل على الورقتين معاً ... ولذلك سألت هل تريد ان يكون كل كود منفصل أم لا؟

  اخى العزيز ياسر

 

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

(يعنى فيه تغيير فى المرفق)

 

المهم ...

عندى اقتراح ...

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

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

 

[سـامي 169]

اضافه صغيره جدا

وهي الناجحين زي الدور التاني

فيه معيارين

ناجح ...وفيه ناجحه

وعايزهم يستدعوا مع الناجحين

مش عارف اضع الجزئيه السحريه الخاصة بالاستاذ المحترم اسامه

ضعها في مرفق من فضلك