جرب هكذا الكود
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Last As Integer
If Target.Address = Range("l3").Address Then
If Target.Value = "" Then GoTo 1
Last = Range("u1").End(xlUp).Row + 1
Cells(Last, "u") = Target.Value
Target.ClearContents
Target.Select
Else
If Target.Column = 12 Then
Cells(Target.Row, 6).Value = Date
End If
End If
1 End Sub
تاريخ متغير11.rar