دمج كودين

[أيهاب ممدوح]

الاخوة الاعزاء

ارجود دمج الكودين

الكود الاول خاص ب

فتح الملف مع تشغيل الجهاز

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Reg_Write3
    Else
    Reg_Delete3
    End If

End Sub

الكود الثاني خاص بتسجيل الوقت والتاريخ في العمود الرابع والخامس عند كتابه الاسم في العمود a

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
     If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then
         Cells(Target.Row, 4) = Date
         Cells(Target.Row, 5) = Format(Now, "hh:mm:ss")
     End If
     End If
End Sub

ارجوا المساعده

مرفق الملف

حضور_ww_2.rar

[أيهاب ممدوح]

للرفع

[أيهاب ممدوح]

للرفع

[أيهاب ممدوح]

للرفع

[الجموعي]

أخي إيهاب قمت بتجربة هذه المحاولة

في Module1

أدرج هذا الكود

Sub ihab()
If CheckBox1.Value = True Then
    Reg_Write3
    Else
    Reg_Delete3
    End If

End Sub

وفي حدث الشيت 1 أضف السطر التالي في الأسقل

Call ihab

لتصبح الكود على النحو التالي

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
     If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then
         Cells(Target.Row, 4) = Date
         Cells(Target.Row, 5) = Format(Now, "hh:mm:ss")
     End If
     End If
     Call ihab
End Sub

[أيهاب ممدوح]

اخي لا تعمل هذه الطريقه

لقد جربتها

[أيهاب ممدوح]

رفع

[أيهاب ممدوح]

تم الحل شكرا