رسالة تنبية اذا تم الكتابة في عمود قبل الاخر

[أبو قاسم]

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

رسالة تنبية اذا تم الكتابة في عمود قبل الاخر

رسالة تنبية.rar

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

بمكن ان يكون المطلوب

 

Message.rar

[أبو قاسم]

جزاك الله خير فقط تكملة بسيطة ان يقوم بمسح الكتابة في الخلية P يجبرة من اجل يعود للكتابة في الخلية O

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

46 دقائق مضت, أبو قاسم said:

جزاك الله خير فقط تكملة بسيطة ان يقوم بمسح الكتابة في الخلية P يجبرة من اجل يعود للكتابة في الخلية O

استبدل الكود بهذا

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 16 And Target.Row > 1 And Target.Count = 1 _
    And Target.Offset(0, -1) = "" Then
    
    Application.EnableEvents = False
    MsgBox Target.Offset(0, -1).Address & " " & "لقد نسيت الكتابة في الخلية "
    Target.Offset(0, -1).Select
    Target.Value = ""
    
End If
Application.EnableEvents = True
End Sub

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

خلية فارغة في العامود O

تم تعديل مارس 10, 2016 بواسطه سليم حاصبيا

[أبو قاسم]

ربنا يحفظك ويبارك لك  هذا هو المطلوب ولك كل الشكر والتقدير

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

1 دقيقه مضت, أبو قاسم said:

ربنا يحفظك ويبارك لك  هذا هو المطلوب ولك كل الشكر والتقدير

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

خلية فارغة في العامود O

[أبو قاسم]

اتحفنا بها لكي نشوف الافضل

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

اليك المطوب الصفحة( Salim) 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 16 And Target.Row > 1 And Target.Count = 1 _
And Target.Offset(0, -1) = "" Then Target.Offset(0, -1).Select

End Sub

 

Message 1.rar

تم تعديل مارس 10, 2016 بواسطه سليم حاصبيا

[أبو قاسم]

وهذة الطريقة جميلة بارك الله فيك