الشافعي قام بنشر مارس 2, 2014 مشاركة قام بنشر مارس 2, 2014 ارجو المساعدة احفاء الصوف.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
الشافعي قام بنشر مارس 5, 2014 الكاتب مشاركة قام بنشر مارس 5, 2014 استاذ الشهابي عذرا الكود لا يعمل رابط هذا التعليق شارك More sharing options...
الشافعي قام بنشر مارس 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 ولي طلب إليك تكرما لا قسرا بتغير اسم الظهور للغة العربية ولك مني كل التحية والتقدير والعفو استاذ الشهابي عذرا الكود لا يعمل رابط هذا التعليق شارك More sharing options...
الشافعي قام بنشر مارس 5, 2014 الكاتب مشاركة قام بنشر مارس 5, 2014 مشكوووووووورر الكود يعمل رابط هذا التعليق شارك 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.