۩◊۩ أبو حنين ۩◊۩ قام بنشر يناير 12, 2018 مشاركة قام بنشر يناير 12, 2018 السلام عليكم الاخوه الكرام يوجد كود للاخ الحبيب بن علية حاجى لعمل فلتره على اساس محتوى الخليه 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 12, 2018 مشاركة قام بنشر يناير 12, 2018 تم معالجة الامر Book2 _Salim.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.