الشهابي قام بنشر مارس 2, 2014 قام بنشر مارس 2, 2014 الأخ العزيز /maro9400 ضع الكود التالي في حدث الورقة ( ورقة1) وإن شاء الله يلبي طلبك Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A10:A11")) Is Nothing Then Exit Sub If Range("A10") = 0 Then Range("A15,A17,A19").EntireRow.Hidden = True Else Range("A15,A17,A19").EntireRow.Hidden = False End If If Range("A11") = 0 Then Range("A16,A18,A20").EntireRow.Hidden = True Else Range("A16,A18,A20").EntireRow.Hidden = False End If End Sub ولي طلب إليك تكرما لا قسرا بتغير اسم الظهور للغة العربية ولك مني كل التحية والتقدير والعفو احفاء الصوف.rar 3
الشافعي قام بنشر مارس 5, 2014 الكاتب قام بنشر مارس 5, 2014 الأخ العزيز /maro9400 ضع الكود التالي في حدث الورقة ( ورقة1) وإن شاء الله يلبي طلبك Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A10:A11")) Is Nothing Then Exit Sub If Range("A10") = 0 Then Range("A15,A17,A19").EntireRow.Hidden = True Else Range("A15,A17,A19").EntireRow.Hidden = False End If If Range("A11") = 0 Then Range("A16,A18,A20").EntireRow.Hidden = True Else Range("A16,A18,A20").EntireRow.Hidden = False End If End Sub ولي طلب إليك تكرما لا قسرا بتغير اسم الظهور للغة العربية ولك مني كل التحية والتقدير والعفو استاذ الشهابي عذرا الكود لا يعمل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.