ترحيل صفوف بشروط

[رضا على]

ترحيل صف الناجح  والدور الثانى والراسب كلا فى صفحته بترتيبه

Book166.rar

[سليم حاصبيا]

جرب هذا الكود

Sub terhil()
 For i = 2 To Sheets.Count
  
  Sheets("sheet1").Range("A1:L9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(i).Range("p1:p2"), _
CopyToRange:=Sheets(i).Range("a1"), Unique:=False
Sheets(i).Columns.AutoFit
Next
End Sub

 

[رضا على]

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

مرسل ملف به الحل يدوى

Book166.rar

[ابراهيم الحداد]

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

اخى الحبيب اليك الحل

عبارة عن ثلاثة اكواد كل واحد منها يختص بترحيل حالة معينة

Book166.rar

تم تعديل فبراير 8, 2016 بواسطه زيزو العجوز

[رضا على]

هووودة

شاكرا لحسن اهتمامك

 

 

 

[ياسر العربى]

تفضل حل آخر لعله يفي بالغرض

Book166.rar

[سليم حاصبيا]

تك تحميل الملف

يرجى التجربة

Book166.rar

[رضا على]

احترامى وعزيز ثقديرى لاهتمامكم بى

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

الاستاذ ياسر العربى الحل الامثل الصحيح حكايه شكرا

الاستاذ سليم الترحيل غير مطبوط

[عبدالله الصاري]

مساهمة بسيطة مني

 

 

 

Book166.rar

استاذ سليم حاصبيا / كل يوم اتعلم من هذا المنتدي فكرة الحل رائعة جدا جعلها الله في ميزان حسناتك

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

[رضا على]