ترحيل حسب شرطين

[الشاب يوسف]

الاخوه الاعزاء ....

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

اريد ترحيل الاسم الذى يتم اختياره الى

الصف الخاص بالمرحله واسم المدرسة بالصفحه الاخرى

كما بالمرفق

ترحيل.rar

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

أخي الفاضل الشاب يوسف

الملف غير منطقي على الإطلاق

يرجى مراجعة الملف المرفق .. حيث أن عملية الترحيل تعتمد على شرطين هما المرحلة واسم المدرسة

طيب لو حبيت أرحل الأسماء الموجودة في ورقة 1 إلى ورقة 2 : الـ 16 اسم هيترحلوا إزاي في صف واحد (الصف التاسع في ورقة 2)

 

أو يمكن أكون فهمت المطلوب بشكل خاطيء

تقبل تحياتي

[الشاب يوسف]

اخى العزيز

استاذ ياسر....اشكرك جدا على اهتمامك

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

اى انه عند الوقوف على اسم طالب واحد فقط ....والضغط على كلمه ترحيل

يرحل هذا الطالب وحده الى الصف الموجود به اسم المرحله والمدرسه الى ورقه 2

والمكتوبين اعلى ورقه 1

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

أخي الفاضل

جرب الملف التالي عله يفي بالغرض

Sub Tarhil()
    Dim WS As Worksheet, SH As Worksheet
    Dim lRowWS As Long, lRowSH As Long
    Set WS = Sheets("ورقة1"): Set SH = Sheets("ورقة2")
    lRowWS = ActiveCell.Row
    lRowSH = Application.WorksheetFunction.Match(WS.Range("C1").Value & " " & WS.Range("D1").Value, SH.Columns("E:E"), 0)
    SH.Cells(lRowSH, "B").Value = WS.Cells(lRowWS, "B").Value
End Sub

تقبل تحياتي

ترحيل.rar

[الشاب يوسف]

اخى واستاذى الكبير

أستاذ ياسر ..تسلم ايدك تماما كما طلبت

كود رائع وجميل ونفذ كل ما طلبته

جزيت خيرا اخى الفاضل

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

الشاب يوسف

الحمد لله أن تم المطلوب

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

تقبل تحياتي