اخفاء الصفوف بشرط من قائمة

[الشافعي]

السلام عليكم 

الاخوة والاخوات 

اذا تكرمتوا احد يساعدني في كود اخفاء الصفوف بشرط من قائمة منسدلة بحسب اختيار الشرط يتم اخفاء عدد محدد من الصفوف واظهار الباقية وعند اختيار من القائمة شرط ثاني يتم اخفاء عدد اخر من الصفوف واظهار الباقية مرفق ملف للشرح 

شاكر ومقدر مقدما 

ولكم جزيل الشكر 

كود اخفاء الصفوف بشرط.xlsx

[أبومروان]

وعليكم السلام ورحمه وبركاته

جرب الكود التالي عدله حسب ما تريد

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" And Target.Value = "0" Then
        Rows("15:200").EntireRow.Hidden = True
    End If
End Sub

 

[الشافعي]

اشكرك اخي كريم 

لكن احتاج الكود كامل لان احتاج اظهار صفوف في المنتصف ولا ادري كيف طريقتها 

[lionheart]

In worksheet module

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v
    If Target.Address = "$B$2" Then
        v = Target.Value
        Rows("15:200").Hidden = False
        If v = 0 Then
            Rows("15:200").Hidden = True
        ElseIf v = Range("N67").Value Then
            Rows("51:200").Hidden = True
        ElseIf v = Range("N68").Value Then
            Rows("15:50").Hidden = True
            Rows("71:200").Hidden = True
        ElseIf v = Range("N69").Value Then
            Rows("15:70").Hidden = True
            Rows("151:200").Hidden = True
        ElseIf v = Range("N70").Value Then
            Rows("15:150").Hidden = True
        End If
    End If
End Sub