التنقل بين الأعمدة؟

[عبدالعزيز محمد]

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

لقد استفدت كثيرا من المنتدى بارك الله في المنتدى 

في الملف المرفق جدول به عدة اعمدة وأحيانا أريد القفز من عمود لآخر بشرط في عمود كما هو موضح بالمرفق

المطلوب: عندما تكون صفة الموظف اداري يتم الانتقال إلى عمود المرتب للكتابة وإذا كانت الصفة معلم يتم الانتقال لعمود الحصص مباشرة للكتابة نأمل أن يكون المطلوب واضحا

Aziz1.rar

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then
With Application
.EnableEvents = True
End With
Exit Sub
End If
Dim lr%
Application.EnableEvents = False

lr = Application.Max(Range("a:a"))
 If Target.Row > lr Or Target.Cells.Count > 1 Then
 With Application
.EnableEvents = True
End With
Exit Sub
End If
If Target.Value = "اداري" Then Target.Offset(0, 1).Select
If Target.Value = "معلم" Then Target.Offset(0, 3).Select

With Application
.EnableEvents = True
End With

End Sub

 

[عبدالعزيز محمد]

بارك الله فيك اخي سليم

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

[سليم حاصبيا]

الملف مع الكود

تم وضعه بصيغة 2003 كي يستفيد منه الجميع

 

 

Aziz1سليم.rar

[عبدالعزيز محمد]

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