البحث في الموقع
Showing results for tags 'تعديل على كود فلتره'.
تم العثور علي 1 نتيجه
-
السلام عليكم الاخوه الكرام يوجد كود للاخ الحبيب بن علية حاجى لعمل فلتره على اساس محتوى الخليه R2 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False ActiveSheet.Unprotect "2191612" If [R2] = "" Then Range("$A$4:$T$4").AutoFilter: Exit Sub ActiveSheet.Range("$A$4:$T$4").AutoFilter If [R2] <> "" Then ActiveSheet.Range("$A$4:$T$454").AutoFilter Field:=3, Criteria1:=[R2] ActiveSheet.Protect "2191612" Application.ScreenUpdating = True End Sub هل الكود يعمل عند احداث اى تغير فى الخليه R2 فقط اريد هذا ولماذا اذا تم اختيار R2 فارغه يتم فك الحمايه من على الورقه اريد الحمايه بشكل مستمر Book2.rar
