اختيار الخلية اتوماتيكي

[Akram Galal]

السلام عليكم ورحة الله وبركاتة
تحية طيبة لكل أعضاء المنتدى
اريد كود يقوم بعمل الأتي:
عند اختيار أي خلية في العمود B
يتم الإنتقال اتوماتيكي للخلية المجاورة لها في العمود A
جزاكم الله خيراً .

[خالد الرشيدى]

استخدم الكود التالى فى حدث التغير فى ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)

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

Target.Offset(0, -1).Select

End If

End Sub

واليك المرفق

 11111.rar

تم تعديل يوليو 28, 2015 بواسطه خالد الرشيدى

[Akram Galal]

اخي خالد

اشكرك علي سرعة الإجابة

سأجرب الكود واخبرك بالنتيجة

جزاك الله خيرا

[Akram Galal]

أ/ خالد

هذا هو المطلوب

ولكن اريد الإنتقال عند الضغط علي الخلية مرة واحدة

وليس عند التغيير في الخلية

وشكرا

تم تعديل يوليو 29, 2015 بواسطه Akram Galal

[ياسر خليل أبو البراء]

فقط غير كلمة

Worksheet_Change

إلى

Worksheet_SelectionChange

[Akram Galal]

شكرا جدا جدا