(تمت الاجابة) كود التنقل بين خلايا محددة

[أبو محمد عباس]

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

الاساتذة الكرام والاخوة الاعزاء اسال الله سبحانه وتعالى ان يحفظكم جميعا ويديم نعمه عليكم وعلى امة الاسلام في مشارق الارض ومغاربها

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

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

التنقل بين خلايا محددة.rar

[عبدالله المجرب]

ضع هذا الكود في حدث ورقة العمل عند كود اللون الازرق للخلية النشطة

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [O6:O1500]) Is Nothing Then Target.Offset(1, -12).Select

End Sub

[أبو محمد عباس]

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

الاستاذ ابو احمد المحترم بارك الله فيك وجزاك الله خير الدنيا وخير الاخرة وزادك من فضله علما ومعرفة

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

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