طريقة دمج كودين في نفس الصفحة

[الشافعي]

الاخوة الافاضل 

كرما دعمكم في دمج الاكواد ادناه في صفحة واحدة 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v
    If Target.Address = "$E$16" Then
        v = Target.Value
        Rows("46:360").Hidden = False
        If v = Range("BB1249") Then
            Rows("46:360").Hidden = True
        ElseIf v = Range("BB1250").Value Then
            Rows("71:360").Hidden = True
        ElseIf v = Range("BB1251").Value Then
            Rows("46:71").Hidden = True
            Rows("117:360").Hidden = True
        ElseIf v = Range("BB1252").Value Then
            Rows("46:117").Hidden = True
            Rows("139:360").Hidden = True
        ElseIf v = Range("BB1253").Value Then
            Rows("46:139").Hidden = True
            Rows("181:360").Hidden = True
         ElseIf v = Range("BB1254").Value Then
            Rows("46:181").Hidden = True
            Rows("209:360").Hidden = True
        ElseIf v = Range("BB1255").Value Then
            Rows("46:209").Hidden = True
            Rows("246:360").Hidden = True
        ElseIf v = Range("BB1256").Value Then
            Rows("46:246").Hidden = True
            Rows("274:360").Hidden = True
        ElseIf v = Range("BB1257").Value Then
            Rows("46:274").Hidden = True
            Rows("311:360").Hidden = True
        ElseIf v = Range("BB1258").Value Then
            Rows("46:311").Hidden = True
            Rows("336:360").Hidden = True
        ElseIf v = Range("BB1259").Value Then
            Rows("46:336").Hidden = True
    
            
        End If
    End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[T1] Then Exit Sub
    If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

 

[الشافعي]

تظهر الرسالة هذه

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته وبها نبدأ 

اخى @الشافعي 

ارفق ملف للعمل عليه