1- عمل ماكرو - يسمى باي اسم
2- اعمل فلترة اثناء تسجيل الماكرو لكلمة ناج - أو راسب
3- ثم اغلق الماكرو
4- اضغط على زري alt+f11 وذلك لتجرب الماكرو فتفتح لك نافذة الفيجوال بيسك
هناك تعدل في الكود الخاص بالماكرو كا لاتي :
Dim lastrow As Long
Application.ScreenUpdating = False
With Sheets(9)
.AutoFilterMode = False
lastrow = Range("a" & Rows.Count).End(xlUp).Row
.Range("a4:ao436").Select
.Selection.AutoFilter
ActiveSheet.Rang("a1:ao436").Select.AutoFilter Field:=1, Criteria1:="????"
Selection.AutoFilter Field:=1, Criteria1:="????"
.Range("a1:ao436" & lastrow).copysheet("????").Range ("a1")
.AutoFilterMode = False
End With
Application.ScreenUpdating
|