مساعدة في التصفية التلقائية

[أبو يحيى الجبلاوي]

السلام عليكم ورحمة الله وبركاته أخواني الكرام من المعرفو انه يمكن تصفية الصفوف بطرق كثيرة 
سؤالي هل يمكن تصفية للأعمدة ؟؟

مثالي مذكور بالصورة التالي : 

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

حسب الشروط يمكن إخفاء الأعمدة بشرط محدد أو عدة شروط

وضح الشروط المطلوبة ..

يمكن عمل حلقة تكرارية للخلايا في الصف الأول لكل عمود ومطابقة الشرط فإذا تحقق الشرط يتم إخفاء العمود ولو لم يتم تحقق الشرط يظل العمود كما هو ..

يمكن لأي أحد من الاخوة تقديم الكود المطلوب حيث أنه سهل للغاية ، فقط وضح شروط التصفية المطلوبة (شروط إخفاء الأعمدة)

[عبدالسلام ابوالعوافي]

كود يقوم باخفاء الاعمدة A:N اذا كانت الخلايا في الصف الثاني تساوي صفر 

قم بتعديله بما يناسبك

 

Sub HideClms()
    Dim i As Integer
    Columns("A:N").Hidden = False
    For i = 1 To 15
        If Cells(2, i) = 0 Then Columns(i).EntireColumn.Hidden = True
    Next
End Sub

 

[أبو يحيى الجبلاوي]

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