مساعدة في اخفاء واظهار الاعمدة بواسطة vba ولكن بشرط معين

[الشافعي]

ارجو المساعدة

احفاء الصوف.rar

[الشهابي]

الأخ العزيز /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

[الشافعي]

استاذ الشهابي عذرا الكود لا يعمل

[الشافعي]

الأخ العزيز /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

ولي طلب إليك تكرما لا قسرا بتغير اسم الظهور للغة العربية ولك مني كل التحية والتقدير

والعفو

استاذ الشهابي

عذرا الكود لا يعمل

[الشافعي]

مشكوووووووورر

 

 

الكود يعمل