مساعدة هامة

[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]

  في 4‏/11‏/2016 at 14:03, سليم حاصبيا 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

 

Expand  

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

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

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

تفضل

 

PLEASE HELP MEEE salim.rar

[taktenm]

  في 4‏/11‏/2016 at 14:28, سليم حاصبيا said:

تفضل

 

PLEASE HELP MEEE salim.rarFetching info...

Expand  

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

A و B

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

 

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

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

  في 4‏/11‏/2016 at 14:33, taktenm said:

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

A و B

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

 

Expand  

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

A=1 B=2  و هكذا

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

 

[taktenm]

  في 4‏/11‏/2016 at 16:51, سليم حاصبيا said:

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

A=1 B=2  و هكذا

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

 

Expand  

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

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

  في 4‏/11‏/2016 at 17:43, taktenm said:

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

Expand  

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

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