كود لاخفاء الاعمدة التي لا تحوي على بيانات وانشاء قائمة جديدة من غير تكرار

[abdou42]

فضلا اريد كود لاخفاء الاعمدة التي لا تحوي على بيانات وكذا انشاء قائمة جديدة من غير تكرار

1. اريد كود لاخفاء الاعمدة التي لا تتوفر على بيانات او خذفها مثال النطاق الذي يظهر باللون الاخضر

2. اريد ان تظهر قائمة  الولايات التي بالجدول الايمن  في الجدول الذي باليسار مع ازالة التكرار تيقائيا بدالة اوكود او باي شيء اخر.

التوضيح بالمرفقات

_{^{شكرا لكم مسبقا}}

 

 

aboud.rar

تم تعديل أبريل 14, 2015 بواسطه abdou42

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

 اين الجدول الايمن حتى نرى الولايات

ولا ارى اي لون اخضر

[abdou42]

دقيقة تم الرفع

aboud.rar

تم تعديل أبريل 14, 2015 بواسطه abdou42

[abdou42]

الشيت رقم واحد فيه جل البيانات

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

اضغط على الزر لاخفاء الاعمدة الفارغة

و مرة اخرى لاعادتها

القائمة المنسدلة ديناميكية (تتجدد كلما أضفت اسماً غير مكرراً)

اضغط اعجبني في حال كان كذلك

hide_colums.rar

[abdou42]

شكرا اخي الفاضل جزاك الله  عني خير جزاء

الشرط الاول تحقق وذلك باخفاء الاعمدة غير المهمة

اما الشطر الثاني وددت ان تظهرالولايات تلقائيا استنادا الى af6 الى af1000 في aj6  الى aj1000 ولكن من غير تكرار لا انا ان احددها

شكرا جزيلا لك وقد اتعبتك معي.

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

 تم التعديل حسب الحاجة

كلما اضفت اسماً غي مكرر يضاف الى اللائحة

hide_colums 1.rar

[abdou42]

شكرا لك اخي انت وفيت وكفيت

بارك الله فيك وفي اهلك

انا ممتن لك شكرا.

[صلاح الدين المصلح]

بعد إذن أستاذنا سليم حاصبيا وهو مشكور على الحل الجميل

مرفق طريقة ثانية لتعم الفائدة.

Hide and Filter.rar

[محمود بكرى]

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

[abdou42]

شكرا لك استاذ سليم اتبعت خطواتك لاظهار القائمة تلقائيا ولكن يوم كامل وانا معها ما استطعت تحقيق ولو العشر منها  لصعوبتها.

اما اخي صلاح فطريقتك اسهل وانجع لو ما كان لها تاثير في الفورم شكرا جزيلا لكم

اما انا فاود طريقة سهلة تحافظ على الفورم  وتخفي التكرار.

جزاكم الله عني خير الجزاء

شكرا لكم وبارك الله فيكم.

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

 انا استطعت ان انجزها بــــ 3 دقائق

و لا يهمك على التمرين تستطيع ان تعمل نفس الشيء و حتى اكثر 

[abdou42]

بارك الله فيك الاستاذ سليم طريقة رائعة لكنها صعبة على مبتدئ ;)

مثال ذلك

=SI(LIGNES($C$7:C7)>NBVAL($B$7:$B$1000)-NB.VIDE($B$7:$B$1000);"";INDEX($B$7:$B$1000;PETITE.VALEUR(SI(NBCAR($B$7:$B$1000)>0;LIGNE($B$7:$B$1000)-LIGNE($B$7)+1);LIGNES($C$7:C7))))

تم تعديل أبريل 16, 2015 بواسطه abdou42