اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

أخي الكريم

اتبع الخطوات التالية

فك الدمج Merge في العمود T

ضع أي بيان في الخلية T6 لأنها ستكون فارغة بعد فك الدمج

إنسخ الخلية T6 إلي الخلية X6 مثلا

ظلل المجال من الخلية T6 إلي الخلية T78

ثم من قائمة Data

>>  Advance Filter

>>  Copy to another location

 

>>  Unique records only

 

أنظر الفييديو المرفق أيضا

 

 

Data_AdvanceFilter.rar

قام بنشر

بالاضافة ما تفضل به استاذنا الفاضل طارق محمود  من شرح رائع بالفديو

 

يمكن ايضا عملها اي Advance Filter بالكود كما في الملف المرفق

 

Sub btnUniqueValues()
Sheet1.Range("T5:T78").AdvancedFilter Action:=xlFilterCopy, copytorange:=Sheet3.Range("P1"), unique:=True
Sheet3.Activate
End Sub

 

Advance Filter فلترة.zip

قام بنشر

اخواني الكرام الاستاذ طارق بارك الله لك عندي اوفيس 2003

الاستاذ ابو تراب بارك الله لك

اريد اضافة بسيطة ويكتمل الحل ان شاء الله

اريد تحت كلمة الفصل تأتي كلمة الكل وبعدها نفس الفلتره

اريد ان الغي الزر ويتم الفلتره عند فتح الصفحة شيت 3

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

قام بنشر

الاستاذ الفاضل ابو تراب

اشكرك كثيرا وبعد

الملف لايعمل عند فتح شيت 3

امسح الخلايا الموجوده في شيت 3 ثم افتح شيت 1 وبعدها افتح شيت 3 تجد لاشيئ

قام بنشر

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

تمام التمام

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

قام بنشر

معذره اخي الكريم

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

قام بنشر

السلام عليكم

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

هذا حل متواضع منى بالمعادلات فقط

ارجو ان يكون ذات فائده

تقبلوا منى خالص التحيه :yes:

معادلة صفيف تم تطبيقها فى شيت 3

{=INDEX(Sheet1!$T$7:$T$78;MATCH(0;COUNTIF($A$1:A1;Sheet1!$T$7:$T$78&"");0))}

فلترة.rar

  • Like 1
قام بنشر

ما شاء الله تبارك الله .. تمكنك من  المعادللات متميز فعلا

 

جزاك الله خيرا استاذ محمد على المعادلة الاكثر من رائعة فقد استخدمتها في الملف المرفق كما يلي:

=IFERROR(INDEX('بيانات الطلبة'!$V$7:$V$212,MATCH(0,COUNTIF($S$9:$S9,'بيانات الطلبة'!$V$7:$V$212),0)),"")

استاذ قصي

 

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

 

اترك لك الملف بالمعادلات للتجريب

 

فلترة متقدمة.zip

  • Like 1
قام بنشر

جزيت خيرا اخى الحبيب ابوتراب على اكوادك الرائعه

ووجب على التنويه ان الداله IFERROR غير موجوده فى اصدار 2003 وان تم تطبيقها سيظهر خطا وتبدا المعادله XLFN

يتم معالجة هذا الخطا اما بالتنسيق الشرطى وهو طمس الخطا باللون الابيض مثلا

او استخدام الداله IF و ISERROR .....الخ

تقبل تحيات اخيك

  • Like 1
قام بنشر

الله يبارك فيكم الاستاذ محمد الريفي والاستاذ ابو تراب

هل اطمع في ترتيب الفلترة من الاصغر الى الاكبر

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

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

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information