الانتقال بعد الاختيار من قايمة منسدلة

[ابو راكان العودة]

السلام عليكم

لدي صف به قوائم منسدلة تعتمد على قاعدة التاكد منصحة البيانات

المطلوب بعد اخيار القيمة من القايمة المنسدلة الانتقال للخلية التالية دون 

الضغط على ازرار التنقل وشكرا

try.rar

[سليم حاصبيا]

انسخ هذا الكود الى حدث الصفحة

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
 If Target.Column < 7 Or Target.Column > 11 Then Exit Sub
 If Target.Column = 11 Then Cells(1, 7).Select: Exit Sub
 Target.Offset(0, 1).Select
 End If
End Sub

 

[ابو راكان العودة]

الله يجزاك خير ويطول عمرك 

اشكر لك تجاوبك وسعة صدرك الله يوفقك 

[ابو راكان العودة]

اخي سليم زادك الله علما 

اضفت اكثر من صف للمعادلة السابقة وكانت ناجحة 

ولكن واجهت مشكلة الانتقال من العمود الاخير حيث يعود بي الى العمود الاول في الصف 

وانا ارغب ان ينتقل الى الصف التالي وشكرا جزاك الله خير 

try2.rar

[سليم حاصبيا]

يمكنك التعديل الى هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Or Target.Column < 7 Or _
     Target.Column > 11 Then Exit Sub
If Target.Column = 11 Then Target.Offset(1, -4).Select: Exit Sub
     Target.Offset(0, 1).Select

End Sub

 

[ابو راكان العودة]

الله عليك يا اخي قمة الابداع والتمكن ماشاء الله

جزاك الله خير وبارك الله لك في عمرك وعلمك وحفظك من كل مكروه امين