الفلترة طبع ايسر بكثير لكن تحتاج اكثر من عمود للفلترة وبالتالي المستخدم للبرنامج يبحث عن اي عمود بدا الفلترة منه ويتوه بين الاعمدة لقلة خبرته
لكن انا وجدت كود رائع ارجو ان تبدي رايك وانا جربته ويعمل بكفاءة
Sub المقيد()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlManual
For x = 9 To 308
If Cells(x, 24).Value = "غير مقيد" And Cells(x, 24) <> "" Then
Rows(x).Hidden = True
Else
Rows(x).Hidden = False
End If
Next
Application.Calculation = xlAutomatic
End Sub