الرجاء النظر في هذين الكودين

[bardisse]

لسلام عليكم عملت كود جميل جدا كل ما يمضي يوم الا  و التاريخ يتوقف فلا تستطيع الرجوع الى الوراء  اريد ان تساعدوني في اللمسة الاخيرة فقط اريد اذا مضى اليوم الاول يكتب في c1  رقم 1  و اذا مضى اليوم الثاني يكتب في c2 رقم 2     الى غاية مضي اليوم الخامس يكتب في c5 رقم 5   اليكم الملف  رجاءا ان تساعيدوني   

   

                                                 الكود الاول                                              هذا الكود خاص بتجميد الوقت لكن يحتاج الى تعديل انا عاجز و شعري شاب من هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub
[A1].Value = [A1]
If [c1] = "" Then [A1].FormulaR1C1 = "=NOW()"

If Target.Address <> "$C$2" Then Exit Sub
[a2].Value = [a2]
If [c2] = "" Then [a2].FormulaR1C1 = "=NOW()"

If Target.Address <> "$C$3" Then Exit Sub
[A3].Value = [A3]
If [c3] = "" Then [A3].FormulaR1C1 = "=NOW()"

If Target.Address <> "$C$4" Then Exit Sub
[A4].Value = [A4]
If [c4] = "" Then [A4].FormulaR1C1 = "=NOW()"

If Target.Address <> "$C$5" Then Exit Sub
[A5].Value = [A5]
If [c5] = "" Then [A5].FormulaR1C1 = "=NOW()"

End Sub
 

 

الكود الثاني  خاص بلصق الارقام  في الخلية c1 ,c2 c3 c4 c5

لكن ينقل الخلية c1 فقط المشكل مازال قائم في عدم اللصق في الخلية c1,c2,c3,c4,c4

ارجو المساعدة
Const Warning As String = "Warning"
Private Sub Workbook_Open()
If Cells(1, 1) > Cells(1, 2) Then
Cells(1, 3) = 1
ElseIf Cells(2, 1) > Cells(2, 2) Then
Cells(2, 3) = 1
ElseIf Cells(3, 1) > Cells(3, 2) Then
Cells(3, 3) = 2
ElseIf Cells(4, 1) > Cells(4, 2) Then
Cells(4, 3) = 3
ElseIf Cells(5, 1) > Cells(5, 2) Then
 Cells(5, 3) = 4
End If
End Sub

 

 

[bardisse]

الملف المرفق الرقم السري   youyouss

youcef.xlsm