مساعدة هامة

[taktenm]

ارجو من حضراتكم ايجاد حل ضرورى يوجد لدى عمودين لادخال قيم وليكن

 A و B 

المطلوب عند ادخال قيمة فى العمود 

A 

تظهر رسالة خطأ بان لابد ادراج التاريخ فى العمود 

B 

اولا 

ارجو الحل سريعا 

 

PLEASE HELP MEEE.zip

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

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

يعمل فقط في العامودين A & B

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
   If IsDate(Target.Offset(0, 1)) = False Then
   MsgBox "Please Enter Only a Date In: " & Target.Offset(0, 1).Address, , "Salim tell you"
   Target = ""
   End If
 Application.EnableEvents = True
 End If
 Application.EnableEvents = True
 End Sub

 

[taktenm]

17 minutes ago, سليم حاصبيا said:

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

يعمل فقط في العامودين A & B

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
   If IsDate(Target.Offset(0, 1)) = False Then
   MsgBox "Please Enter Only a Date In: " & Target.Offset(0, 1).Address, , "Salim tell you"
   Target = ""
   End If
 Application.EnableEvents = True
 End If
 Application.EnableEvents = True
 End Sub

 

    للأسف لا تعمل  لو امكن تطبيقها على الملف المرفق 

تم تعديل نوفمبر 4, 2016 بواسطه taktenm

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

تفضل

 

PLEASE HELP MEEE salim.rar

[taktenm]

1 hour ago, سليم حاصبيا said:

تفضل

 

PLEASE HELP MEEE salim.rar

تمام بس ازاى احدد مثلا عمودين غير

A و B

ارجو الرد ضرورى جدا 

 

تم تعديل نوفمبر 4, 2016 بواسطه taktenm

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

2 ساعات مضت, taktenm said:

تمام بس ازاى احدد مثلا عمودين غير

A و B

ارجو الرد ضرورى جدا 

 

في هذا الجزء من الماكرو غير الرقم 1 (إول رقم و ليس الثاني) الى اي رقم تريدحسب رقم العامود الذي تريد العمل عليه)

A=1 B=2  و هكذا

If Target.Column = 1 And Target.Count = 1 Then

 

[taktenm]

51 minutes ago, سليم حاصبيا said:

في هذا الجزء من الماكرو غير الرقم 1 (إول رقم و ليس الثاني) الى اي رقم تريدحسب رقم العامود الذي تريد العمل عليه)

A=1 B=2  و هكذا

If Target.Column = 1 And Target.Count = 1 Then

 

والله انك برنس

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

11 دقائق مضت, taktenm said:

والله انك برنس

أين الاعجاب؟؟!!

او ان كبسة زر صعبة قوي