تنشيط الخلية السفلي التي تلي النشطة

[ابو طيبه]

السلام عليكم 

بعد الاختيار من القائمة المنسدلة في العمود المحدد يتم تنشيط خليه اخرى او تنشيط الخلية السفلى التي تلي الخلية التي تم الاختيار منها مع جزيل الشكر لجهودكم 

File.xlsm

[Mohamed_Fouad]

عليكم السلام - جرب هذا الملف

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Protect
End Sub

File.xlsm

[ابو طيبه]

مشكور استاذ محمد كيف يمكن دمج الكود مع اكواد الملف وبارك الله بيك

[ابو طيبه]

للرفع كيف يمكن دمج الكود اعلاه مع كود الملف لتنفيذ المطلوب مع جزيل الشكر والامتنان 

File .xlsm

[ابو طيبه]

السلام عليكم 

الحمدلله تمت الاجابة على المطلوب من قبل الاستاذ ياسر العزير مشكوره جهوده من خلال هذا الكود

 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("D8")) Is Nothing Then

        Range("E9:E10").Value = "100"

        Range("E11:E12").ClearContents

        Range("E13:E14").Value = "yes"

        Range("E15:E16").ClearContents

    ElseIf Not Intersect(Target, Range("E9:E12")) Is Nothing Then

        Target.Offset(1).Select

    End If

End Sub