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

[سـامي 169]

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

هل يمكن وضع هذا الكود بالمعايير الجديده  لان الكود به شرح المحترم ياسر

بتاعه ناجح وناجحه

له دور ثان ولها دور ثان

من فضلكم

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

أخي الحبيب أسامة

بارك الله فيك على المجهود الرائع

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

http://www.officena.net/ib/index.php?showtopic=59925

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

عموما كل السبل تؤدي إلى الشيت

تقبل تحياتي

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

مرفق

 

واضح انك مدرس لغة عربية .... حريص على المذكر والمؤنث    

 

ابقى افتح موضوع جديد لو عايز حاجة تانى

 

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

[سـامي 169]

اخر طلب في هذا الموضوع ان شاء الله

عند المسح لاياتي رقم المسلسل

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

[سـامي 169]

انت لماح وذكي وحكايه اي سؤال جديد افتح موضوع جديد

الاختلاف في الراي لايفسد للود قضيه

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

عموما يحفظكم الله

[القومي]

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

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

لكم جزيل الشكر

[سـامي 169]

اخر طلب في هذا الموضوع ان شاء الله

عند المسح لاياتي رقم المسلسل

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

الطلب غير مناسب للموضوع يرجى طرح موضوع جديد وعدم الالحاح

 

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

والرأي للجميع وليس لي أو للأخ أسامة فقط ...

 

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

ابدأ من حيث انتهى الآخرون

[سـامي 169]

الله يسامحك

غير مناسب ليه .. افنح موضوع جديد عشان تعدل التسلسل

الله يسامحني ويسامحك

حلها يا ابو ضحكة جنان

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

34 مشاركة في موضوع الترحيل للناجحين والراسبين رغم أن الأخ الكريم القومي بارك الله فيه قدم لك الحل في بداية الموضوع .. وقمت بشرح الكود لتفهم أجزائه وقام الأخ الغالي أسامة بالإضافة التي تريدها ..أظن أن الموضوع استكفي .. ثم إن موضوع التسلسل موجود بالمنتدى قم بالبحث (لا تنتظر دائماً أن نعطيك السمكة فلربما يأتي اليوم الذي لا تجد فيه من يصطاد لك)

اتعب شوية لو فعلاً عايز تتعلم

 

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

Come easy go easy

اللي ييجي بالسهل يروح بالسهل ، واللي يتعلم ياكل السمك جاهز عمره ما هيعرف يصطاد

[سـامي 169]

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

الرد

الله يصلح  حالنا و حالك

علي بن ابي طالب كرم الله وجهه يقول " علمت ان رأيي صواب ولكنه يحتمل الخطأ وعلمت ان رأيك خطأ ولكنه يحتمل الصواب "

تخيل ان احد الاخوة حمل الملف الناقص به المسلسل

ماذا يفعل هل يظل يبحث عن المواضيع المكمله لهذا الموضوع ام ان الموضوع يقتل بحثا لكي يكتمل

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

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

[سـامي 169]

ثم إن موضوع التسلسل موجود بالمنتدى قم بالبحث (لا تنتظر دائماً أن نعطيك السمكة فلربما يأتي اليوم الذي لا تجد فيه من يصطاد لك)

ولو كنت اجبت بصدر رحب مش كان احسن انا تخيلت ان جزئيه بالكود ناقصه

عموما

الله يصلح حالي وحالك وتتعب اكثر عشان تفيد اكثر

[قصي]

جزاكم الله خيرا للاستاذ المحترم القومي

والاستاذ الفاضل اسامة البراوي

والمبدع ياسر خليل

الاسماء بترتيب المشاركات

[قصي]

=IF(D7="";"";ROW()-6)

ضعها في خانة المسلسل واسحبها لتحت

[سـامي 169]

اريد اضافه اعمده جديده ومش عارف  المرفق يوضح

ارجوكم

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

[ناصر سعيد]

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 InStr(1, Sheets("الشيت").Cells(R, 113).Value, "ناجح") Then
            Sheets("الشيت").Range("A" & R).Range("b1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,di1,dj1").Copy
            Sheets("كشف ناجح").Range("c" & M).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            M = M + 1
            End If
            If InStr(1, Sheets("الشيت").Cells(R, 113).Value, "دور ثان") Then
                Sheets("الشيت").Range("A" & R).Range("b1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,di1,dj1").Copy
                Sheets("كشف الدور الثاني").Range("c" & b).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            b = b + 1
            End If
    Next
  
    MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ")
    Application.ScreenUpdating = True
End Sub

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

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