با سلام من یه دستور ماکرو دارم که تاریخ آخرین تغییرات هر ردیف را در سلول تعیین شده ذخیره میکنه
این دستور فقط روی یک شیت قابل اجراست و می خواستم بدونم چجوری میتونم اون رو برای چندین شیت معین اجرا کنم که نیازی به نوشتن این ماکرو برای هر شیت نباشه
مثلاٌ دستور ماکرو که در پائین نوشتم را برای شیت های 2 تا 9 اجرا کنه و با بقیه شیت ها هم کاری نداشته باشه
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Value As Variant
If Not Intersect(Target, Range("D4: D5000")) Is Nothing Then
For Each Value In Target
If Value <> "" Then
Range("F" & Value.Row).Value = Now
End If
Next Value
End If
End Sub

لینک فایل نمونه:
AutoInsertLastUpdateDate
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.