تعديل كود جلب الوقت الحالى بدبل كليك فى عمودين بشرط

[هانى محمد]

السلام عليكم اهل واساتذة المنتدى الكرام-أرجو من حضراتكم التكرم على مساعدتى فى :

 تعطيل كود جلب الوقت الحالى بدبل كليك فى العمودين رقم 20 و 21
أى العمودين T & U
وذلك اذا كان نوع الدوام الموجود فى العمود E "دوام واحد" -بمعنى جعل الخلية فارغة امام هذا الشرط اى بدون وقت نهائيا

ولكم منى جزيل الشكر وبارك الله فيكم

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 16 And Target.Row > 7 Then
Cancel = True
Target.Value = Now()
End If
If Target.Column = 17 And Target.Row > 7 Then
Cancel = True
Target.Value = Now()
End If
If Target.Column = 20 And Target.Row > 7 Then
Cancel = True
Target.Value = Now()
End If
If Target.Column = 21 And Target.Row > 7 Then
Cancel = True
Target.Value = Now()
End If
Target = Format(Time, "hh:mm AM/PM")
End Sub

 

 

تعديل كود الوقت.xlsm

تم تعديل يوليو 3, 2018 بواسطه هانى محمد

[هانى محمد]

للرفع جزاكم الله كل خير

[Ali Mohamed Ali]

تفضل اخى الكريم جرب هذا الكود

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 16 And Target.Row > 7 Then
Cancel = True
Target.Value = Now()
End If
If Target.Column = 17 And Target.Row > 7 Then
Cancel = True
Target.Value = Now()
End If
If Target.Column = 20 And Target.Row > 7 Then
    If Cells(Target.Row, 5).Value = "دوام واحد" Then: Cancel = False: Exit Sub
Cancel = True
Target.Value = Now()
End If
If Target.Column = 21 And Target.Row > 7 Then
    If Cells(Target.Row, 5).Value = "دوام واحد" Then: Cancel = False: Exit Sub
Cancel = True
Target.Value = Now()
End If
Target = Format(Time, "hh:mm AM/PM")
End Sub

 

 

تم تعديل يوليو 3, 2018 بواسطه ali mohamed ali

[هانى محمد]

أحسنت استاذ علي وبارك الله فيك وهو ده بالفعل المطلوب

لك الشكر كله

تم تعديل يوليو 3, 2018 بواسطه هانى محمد

[أحمد يوسف]

بارك الله فيكم جميعا