لماذا لا يتنفز الكود الثاني

[رامي قلعجية]

لماذا لا يعمل الكود بالكامل الامر الاول يعمل والثاني اللذي يبدأ ب  if لا يعمل ارجو الشرح وكتابة الكود بالشكل الصحيح

الكود

Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Not Intersect(Range("b7:b500,d7:d55,e2,f3,g3"), target) Is Nothing Then
Cells(target.Row, target.Column).Offset(0, 1).Select
Beep
End If
Exit Sub

If target.Column = 6 Then
Cells(target.Row, target.Column).Offset(0, 5).Select
Else
End If
End Sub

 

[Ali Mohamed Ali]

اخى الكريم لو ممكن الملف نفسه لأنى لم افهم ما تريده من الشرط الثانى بالكود-او عليك توضيح ماذا تقصد وتريد بالضبط من هذا الشرط ان يعمل وما هو مهمته

بارك الله فيك

تم تعديل أكتوبر 20, 2018 بواسطه ali mohamed ali

[رامي قلعجية]

شكر لك اخي على الرد 

تواجهني مشكلة عندما اقف على العامود b او d عندما استعمل الكيبورد والذهاب بزر الكيبورد الى الخلية من عامود   a  الى b تكون النتيجة انه ينتقل الى العامود  d وهذا ما اريد ولكن عندما اعود تظهر المشكلة لا يمكن العودة عن طريق الكيبورد  في العامود d بعد كتابة ما اريد اريد العودة 

خطرت ببالي فكرتين اما ان يعمل الكود مرة الى الشمال ومرة الى اليمين او اجعل العامود f  ياخذني الى اول الصف 

شكرا على الاهتمام

 

fatoura6.rar

تم تعديل أكتوبر 20, 2018 بواسطه ramikalaajieh.rk
ارفاق الملف

[Ali Mohamed Ali]

اخى الكريم  كيف تريد ان تقف على العمود D وهو بالفعل داخل نطاق الحماية من الخلية d7:d55

لهذا السبب فلا يمكن الوقوف ضمن هذه الخلايا من العمود D

وهذه هى رغبتك وطلبك من البداية بحماية هذا النطاق

بارك الله فيك

[رامي قلعجية]

شكرا لك واعتذر منك على ازعاجك 

بارك الله بك

كيف اضيف عامود بكود مستقل عن الكود الذي فوقه 

[Ali Mohamed Ali]

غير واضح السؤال هل تريد مثلا الغاء هذه الحماية من على عمود معين ؟.!!!!!!!!!!!

[رامي قلعجية]

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

[رامي قلعجية]

في ‏٢٠‏/‏١٠‏/‏٢٠١٨ at 15:04, ramikalaajieh.rk said:

اخي علي شكرا لك على كل شيئ لقد حللت المسألة 

وهذا مرفق للاستفادة منه

 

 

 

fatoura7.rar

[Ali Mohamed Ali]

بارك الله فيك وجزاك الله كل خير