چگونگی رفع این پیغام خطا

[hamidrezasadeghi]

سلام دوستان . ماکرویی نوشتم که در یک workbook اطلاعات را به صورت اتوماتیک هر 5 دقیقه یک بار از sheet1 بخواند و در sheet2 پشت سر هم کپی کند. به صورت دستی کارش را درست انجام میدهد ولی هنگام اجرای اتوماتیک پیغام خطای زیر را میدهد


the macro may not be available in this workbook or all macros may be disabled

ماکرو را هم enable کرده ام.

Sub my()

Application.OnTime Now + TimeValue("00:00:05"), "my()"
'Application.OnTime EarliestTime:=Now + TimeValue("00:00:05"), Procedure:="thisworkbook.my()"
'Application.OnTime Now + TimeValue("00:00:05"), "thisworkbook.my"
Sheets("online").Select
onlinerows = Sheets("online").Range("Q1").Value
Range("A3:O3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("bank").Select
bankrows = Sheets("bank").Range("Q1").Value
Range("B" & bankrows + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
bankrows = Sheets("bank").Range("Q1").Value
 Sheets("online").Select
    Range("R1").Select
    Selection.Copy
    Sheets("bank").Select
 Range("A" & bankrows - onlinerows + 3, "A" & bankrows).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
' ta inja online re kopy , zaman ra ham kopy mikonad
' az inja sort mikonad

Range( 

لطفا راهنمایی فرمایید.

hr_sadeghi2004@yahoo.com

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

[~M*E*H*D*I~]

ماکرو رو کجا نوشتید تو ماژول یا ورکبوک یا ورک شیت؟

[hamidrezasadeghi]

ضمن تشکر و عرض ادب از شما ، ماکرو را در ماژول نوشتم. هر چند با نوشتن در ورک بوک مشکلم حل شد ولی اگه ممکنه توضیحی ارائه فرمایید به صورت اصولی برای نوشتن هر ماکرویی ، کجا باید نوشته شود؟ سپاسگزار از محبت شما اساتید بزرگوار.

[MEYTI]

دوست عزیز این بستگی داره به ماهیت ماکرو مورد نظر که دقیقا چه کاری میخواد انجام بده و کاربردش چیه
مثلا شما میخوای با باز و بسته شدن ورک بوک عملیات خاصی انجام بشه (مانند نمایش یک پیغام ) خب در این صورت باید در ورک بوک نوشته شود

یا اگه بخواین با تغییرات در سلولهای یک شیت یا حرکت در یک شیت خاص عملیات خاصی انجام بشه ماکرو باید در رویدادهای شیت نوشته شود
به طور کل همه ماکرو ها رو میشه در ماژول نوشت و در عملیات های خاص آن ماکرو را فراخوانی یا صدا کرد

[~M*E*H*D*I~]

البته اضافه کنم نمیشه هر آنچه در ماکرو میشه نوشت در شیت یا ورکبوک هم نوشت