طلب تعديل على الكود المرفق ليقوم بفلترة الخلايا اللى أكبر من الصفر

[أبو العاصم]

السلام عليكم ورحمة الله

طلب تعديل على الكود المرفق ليقوم بفلترة الخلايا اللى أكبر من الصفر

الكود هو

Sub filter2()

Sheet5.Unprotect ("123")

x = Range("u11").Value

    Range("u11:u76").Select

    Selection.AutoFilter

    Selection.AutoFilter Field:=1, Criteria1:=x

    Range("e11").Select

Sheet5.Protect Password:="123"

End Sub

المطلوب فلترة النطاق وتجاهل الخلايا التى تساوى صفر

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

[يحيى حسين]

السلام عليكم

جرب اضافة هذا السطر للكود

Selection.AutoFilter Field:=1, Criteria1:="<>0"