hamidrezasadeghi
2014/01/24, 02:47
سلام دوستان . ماکرویی نوشتم که در یک 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
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