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

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • hamidrezasadeghi

    • January 2014
    • 39

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

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


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

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

    کد PHP:
    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
    (SelectionSelection.End(xlDown)).Select
        Selection
    .Copy
        Sheets
    ("bank").Select
    bankrows 
    Sheets("bank").Range("Q1").Value
    Range
    ("B" bankrows 1).Select
    Selection
    .PasteSpecial Paste:=xlPasteValuesOperation:=xlNoneSkipBlanks _
            
    :=FalseTranspose:=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:=xlPasteValuesOperation:=xlNoneSkipBlanks _
            
    :=FalseTranspose:=False
    ' ta inja online re kopy , zaman ra ham kopy mikonad
    az inja sort mikonad

    Range

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

    hr_sadeghi2004@yahoo.com
    Last edited by ~M*E*H*D*I~; 2014/01/24, 11:13.
  • ~M*E*H*D*I~

    • October 2011
    • 4374

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

    sigpic

    Comment

    • hamidrezasadeghi

      • January 2014
      • 39

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

      Comment

      • MEYTI

        • November 2010
        • 362

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

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

        Comment

        • ~M*E*H*D*I~

          • October 2011
          • 4374

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

          sigpic

          Comment

          Working...