اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

نأمل أن يكون المطلوب واضحا 

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

 

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

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

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

من فضلك سجل دخول لتتمكن من التعليق

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



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

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

Important Information