التحرك في نطاق محدد من الخلايا

[عصام2008]

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

الأخوة الأعزاء

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

Inter1.rar

[طارق محمود]

السلام عليكم

أخي العزيز

قم بعمل التالي

(1) إخفي الأعمدة الير مستخدمة (كل ماهو بعد العمود F)

(2) من Tools ثم Options ثم Edit ثم move selection after enter وإجعلها Right يمين بدلا من الأسفل

(3) ضع الكود التالي في حدث الورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

cc = Target.Column

If cc = 2 Or cc = 3 Then Target.Offset(0, 4 - cc).Select: Exit Sub

If cc > 4 Then Target.Offset(1, -cc + 1).Select

End Sub

تفضل المرفق وبه الخطوات الثلاثة

Inter1.rar

[عصام2008]

السلام عليكم أخي العزيز / طارق

أولا شكرا لك على سرعة الرد والإجابة ولكن لم يفي الكود بالغرض لانه لم يعمل بالشكل المطلوب لماذا لا اعرف

أرجو تجربته بنفسك لاتضاح الخلل وشاكر لك مرة أخرى على مساعدتك

[طارق محمود]

السلام عليكم

الكود يعمل عندي مضبوط

أنظر الفيديو علي اكسل 2003

وايضا علي 2010

وكل مرة أدخل فيها بيانات ، بس إنتر ينقل للتي تليها

أنظر مرفق 2 فيديو

Inter1_VID.rar

[عصام2008]

_{مشكور أخى العزيز على الإهتمام والرد ولكن أعتقد أن هناك طريقة اخري بدون تغيير في خاصية انتقال التحديد وعلى كل حال جزاك الله خير الجزاء على الاهتمام ومساعدتك لي}

تم تعديل أبريل 27, 2012 بواسطه esam2008

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

السلام عليكم

بعد اذن البشمهندس طارق

ضع هذا الكود في حدث ورقة العمل وبعد الادخال تحرك بالاسهم

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [A4:A53]) Is Nothing Then

Target.Offset(0, 3).Select

End If

If Not Intersect(Target, [D4:D53]) Is Nothing Then

Target.Offset(1, -3).Select

End If

End Sub

[إبراهيم ابوليله]

الاخوه الافاضل عمل رائع وموفر لكثير من الوقت والجهد

ولكنى اريد تطبيقه على شيت عندى

على جميع صفوف الشيت على حسب التسلسل كما هو موضح فى الخلايا الملونه بالون الاصفر

مرفق اليكم الشيتPAY HOTEL-1.rar

[إبراهيم ابوليله]

ارجو المساعده

من خبراء المنتدى

[إبراهيم ابوليله]

الاخوه الافاضل

ارجو المساعده

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

اخي بصراحة نحن بحاجة الى توضيح اكثر في المطلوب (في ملفك)

[إبراهيم ابوليله]

الاخ عبد الله

بمعنى اننى اريد ان ابدء الكتابه فى الخليه A5

THEN B5,THEN C5,THEN E5 ,THEN F5 , THEN H5 , THEN H6 , THEN I5 , THEN I6 ,THEN J5 , THEN J6 ,THEN K5 , THEN K6 ,THEN O5,THEN P5,THEN Q5

THEN A8

THEN B8,THEN C8,THEN E8 ,THEN F8 , THEN H8 , THEN H8 , THEN I8 , THEN I9 ,THEN J8 , THEN J9 ,THEN K8 , THEN K9 ,THEN O8,THEN P8,THEN Q8

THEN A11

وهكذا

ارجو ان اكون استطعت الالتوضيح