mostafa2khalifa

الرجاء المساعدة في تعديل هذا الكود اريد تحقيق كتابة شرد في الخلية وهو حرف 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

الرجاء المساعدة في تعديل هذا الكود اريد تحقيق كتابة شرد في الخلية وهو حرف 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