الرجاء المساعدة في تعديل هذا الكود
اريد تحقيق كتابة شرد في الخلية وهو حرف R وبعدها يتم كتابة التاريخ في الخلية
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A20")) Is Nothing Then
VBA.Calendar = vbCalGreg
If Len(Target.Cells(1).Value2) <> 0 Then
Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = Date
Else
Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = vbNullString
End If
End If
End Sub