السلام عليكم اهل واساتذة المنتدى الكرام-أرجو من حضراتكم التكرم على مساعدتى فى :
تعطيل كود جلب الوقت الحالى بدبل كليك فى العمودين رقم 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