אקסל - מילוי אוטומטי של תאריך

[כוכב שמח]

ברצוני שתא מסויים יציג את התאריך שבו השתנה תא אחר.
לדוגמא: כאשר אני משנה תא A1, תא A2 יציג את תאריך השינוי.
השתמשתי בפיתרון הזה

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
   Range("A2").Value = Now
End If
End Sub

עובד מצויין.
מה שאני רוצה להוסיף זה שהתא שמציג את התאריך יציג גם טקסט חופשי, לדוגמא : "תא A1 שונה בתאריך XXX"

תודה מראש לעונים

[אפר שריפה]

@כוכב-שמח
תחליף מ

Range("A2").Value = Now

ל

Range("A2").Value = "תא " & Target  & " שונה ב " & Now

[כוכב שמח]

@אפר-שריפה מעולה, תודה.

[אברהם הקטן]

פוסט זה נמחק!