تقاضایی راهنمایی در مورد ماکرونویسی

[newertebat]

با سلام من یه دستور ماکرو دارم که تاریخ آخرین تغییرات هر ردیف را در سلول تعیین شده ذخیره میکنه
این دستور فقط روی یک شیت قابل اجراست و می خواستم بدونم چجوری میتونم اون رو برای چندین شیت معین اجرا کنم که نیازی به نوشتن این ماکرو برای هر شیت نباشه
مثلاٌ دستور ماکرو که در پائین نوشتم را برای شیت های 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

[khakzad]

سلام
می تونید این کد رو توی یک ماژول بنویسید و در

[COLOR=#333333]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]

اون ماکرو رو فراخوانی کنید. اصطلاحا call کنید

[newertebat]

روش call رو بلد نیستم ، ولی پیدا کرده و تست میکنم
با این دستور چه اتفاقی میافته و مهمتر اینکه کجا باید اسم شیت هایی رو که میخوام تعیین کنم؟

[khakzad]

توی هر شیت باید این کد رو بنویسید
هر شیت یک

[B][FONT=Tahoma]
[COLOR=#333333]Private Sub Worksheet_Change(ByVal Target As Range)
call macro[FONT=Tahoma]1Private Sub Worksheet_Change(ByVal Target As Range) داره
پس برای هر شیت اینو می نویسید
 به عبارتی:

[FONT=Tahoma]end sub[/FONT]
[/FONT]

[/COLOR][/FONT][/B]

[Amir Ghasemiyan]

ظاهرا پاسخ اين سوال داده شده.
تاپيك حل شد