الرجاء كود او دالة لترحيل بيانات من ورقة 2 الى ورقة 4 فى نفس الملف

[ابو غريب]

ارجو من خبراء الاكسيل عند القيام بتصفية مثلا الصف الاول من العمود Nوالفصل 1/1 من العمود M المطلوب دالة اوكود لترحيل بيانات العمود B الاسم وعمود حالة التلمبذ U من sheet2 الى العمود B والعمود C الى الخلية E39 ,وتكمل بنفس التسلسل فى العمود E6 والعمود I6 الى الخلية 39 E والخلية I39 ب sheet4 حتى اتمكن من عمل قائمة الفصل من البيانات الموجودة بsheet2 كما ب sheet4 مع العلم بتغير البيانات كل ما يتم التصفية من نفس الصف وفصل اخر او صف اخر وكلمة سر فتح الملف 123 وشكرا

والملف مرفق

تلاميذ الدار.rar

تم تعديل فبراير 20, 2012 بواسطه ابوجادالله

[عبدالله المجرب]

السلام عليكم

اخي ابوجاد الله

ضع هذا الكود في زر امر في Sheet4

Sub Abu_Ahmed()

Range("B6:C33,E6:I29").ClearContents

b = 2: c = 3: rr = 6

Dim cl As Range

Set MySh = Sheets("sheet2")

For Each cl In MySh.Range("M4:M" & MySh.[M10000].End(xlUp).Row)

If cl.Value = [E4] Then

Cells(rr, b) = cl.Offset(0, -11)

Cells(rr, c) = cl.Offset(0, 8)

rr = rr + 1

If rr = 34 Then b = 5: c = 9: rr = 6

End If

Next

End Sub

[بن علية حاجي]

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

أخي الكريم، إضافة إلى عمل أخي وحبيبي أبو أحمد، أضيف حلا آخر (باستعمال المعادلات) لعمل المطلوب وليس بالتصفية ولكن باستعمال الدوال INDEX و SMALL بمعادلة صفيف في شيت4 مع بعض التعديلات (ضرورية) على الورقة... ويكفي في شيت 4 اختيار الصف في القائمة المنسدلة في الخلية E4 للحصول على قائمة الفصل (أسماء التلاميذ والحالة)... راقب المعادلات في الجدول الإحصائي بالأسفل ربما تكون فيه بعض الأخطاء...

أخوك بن علية

تلاميذ الدار.rar

[ابو غريب]

اخى العزيز hben الملف به عطب لم يتم فكة فماذا السبب الله اعلم

[ابو غريب]

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

[عبدالله المجرب]

تفضل المرفق

اختر الفصل واضغط الزر

تلاميذ الدار.rar

[بن علية حاجي]

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

إخواني الكرام، أعرف أن العمل الذي قدمه أخي وحبيبي أبو أحمد هو عمل رائع وجميل جازاه الله عنا ألف خير وجعل كل ذلك في ميزان حسناته، غير أني أريد أن أعرف فعلا إن كان في الملف الذي أرفقته في المشاركة 3# أي عطب؟؟ إن كان ولا بد أعيد إرفاقه للفائدة...

أخوكم بن علية

[منياوى]

[عبدالله المجرب]

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

غير أني أريد أن أعرف فعلا إن كان في الملف الذي أرفقته في المشاركة 3# أي عطب؟؟ إن كان ولا بد أعيد إرفاقه للفائدة...

أخوكم بن علية

الاستاذ الفاضل الكريم النبيل بن عليه

الملف يعمل 100%

سلمت يمينك على هذه المعادلات الرائعة جداً وانا اعتبرها دروس يجب ان نستفيد منها (اقل حاجة ان هذه المعادلة عي بديلة للدالة المعرفة VLOOK2ALL لمن يريد استخدام الدوال الموجودة فقط)