اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

التنقل بين خلايا محددة.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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information