هل يوجد كود لاخفاء السطور طبقا للون الصف

[ايهاب سعيد]

هل يوجد كود لاخفاء السطور طبقا للون الصف

ثانيا لو ان هناك قيمة في عمود اخر مثلا كما يلي

م بيان عمود الاختبار

1 يس 1

2 يس

3 يسل 1

فهل يمكن اخفاء السطور التي يوجد بها عمود الاختبار قيمة 1 مثلا

مع الشكر

[الـعيدروس]

السلام عليكم

فرضا عمود شرط اللون وشرط رقم 1 هو الـ C

شرط اللون الاصفر

جرب الكود التالي

Public Sub Hid_Ali()

Dim i%

For i = 1000 To 2 Step -1

With Cells(i, 3)

If Not IsEmpty(.Value) And .Value = 1 Or .Interior.Color = RGB(255, 255, 0) Then

    .EntireRow.Hidden = True

End If

End With

Next

End Sub