Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run - time error '1004'
Hello,
I have a file with a code for blinking text. At this moment I am entering some data in this file, so I click on macro in the tool bar to stop the blink texts. The problem is that after I save the file and come to close the file, a window appears with this error. Run - time error '1004' Method 'On Time' of object '_Application' failed. Continue End Debug Help Below is the code: Public RunWhen As Double Sub StartBlink1() With ThisWorkbook.Worksheets("Open").Range("A1:A3,B1:B3 ,C1:C3").Font If .ColorIndex = 5 Then ' Red Text .ColorIndex = 49 ' White Text Else .ColorIndex = 5 ' Red Text End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink1", , True End Sub Sub StopBlink1() ThisWorkbook.Worksheets("Open").Range("A1:A3,B1:B3 ,C1:C3").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink1", , False End Sub Sub StartBlink2() With ThisWorkbook.Worksheets("Serie A").Range("AP6,AX6").Font If .ColorIndex = 3 Then ' Red Text .ColorIndex = 2 ' White Text Else .ColorIndex = 3 ' Red Text End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink2", , True End Sub Sub StopBlink2() ThisWorkbook.Worksheets("Serie A").Range("AP6,AX6").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink2", , False End Sub Sub StartBlink3() With ThisWorkbook.Worksheets("Serie B").Range("AP6,AX6").Font If .ColorIndex = 3 Then ' Red Text .ColorIndex = 2 ' White Text Else .ColorIndex = 3 ' Red Text End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink3", , True End Sub Sub StopBlink3() ThisWorkbook.Worksheets("Serie B").Range("AP6,AX6").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink3", , False End Sub Sub StartBlink4() With ThisWorkbook.Worksheets("Serie C").Range("AP6,AX6,AP83,AX83").Font If .ColorIndex = 3 Then ' Red Text .ColorIndex = 2 ' White Text Else .ColorIndex = 3 ' Red Text End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink4", , True End Sub Sub StopBlink4() ThisWorkbook.Worksheets("Serie C").Range("AP6,AX6,AP83,AX83").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink4", , False End Sub Any help please, Thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run - time error '1004'
A "1004" error is a very generic error that means "something went wrong but we're not going to tell you what". When you get the error, click on the Debug button in the message box. That will take you to the offending line of code. Post that line of code. Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group, 1998 - 2009 Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Mon, 17 Aug 2009 06:45:01 -0700, MAX wrote: Hello, I have a file with a code for blinking text. At this moment I am entering some data in this file, so I click on macro in the tool bar to stop the blink texts. The problem is that after I save the file and come to close the file, a window appears with this error. Run - time error '1004' Method 'On Time' of object '_Application' failed. Continue End Debug Help Below is the code: Public RunWhen As Double Sub StartBlink1() With ThisWorkbook.Worksheets("Open").Range("A1:A3,B1:B3 ,C1:C3").Font If .ColorIndex = 5 Then ' Red Text .ColorIndex = 49 ' White Text Else .ColorIndex = 5 ' Red Text End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink1", , True End Sub Sub StopBlink1() ThisWorkbook.Worksheets("Open").Range("A1:A3,B1:B 3,C1:C3").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink1", , False End Sub Sub StartBlink2() With ThisWorkbook.Worksheets("Serie A").Range("AP6,AX6").Font If .ColorIndex = 3 Then ' Red Text .ColorIndex = 2 ' White Text Else .ColorIndex = 3 ' Red Text End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink2", , True End Sub Sub StopBlink2() ThisWorkbook.Worksheets("Serie A").Range("AP6,AX6").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink2", , False End Sub Sub StartBlink3() With ThisWorkbook.Worksheets("Serie B").Range("AP6,AX6").Font If .ColorIndex = 3 Then ' Red Text .ColorIndex = 2 ' White Text Else .ColorIndex = 3 ' Red Text End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink3", , True End Sub Sub StopBlink3() ThisWorkbook.Worksheets("Serie B").Range("AP6,AX6").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink3", , False End Sub Sub StartBlink4() With ThisWorkbook.Worksheets("Serie C").Range("AP6,AX6,AP83,AX83").Font If .ColorIndex = 3 Then ' Red Text .ColorIndex = 2 ' White Text Else .ColorIndex = 3 ' Red Text End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink4", , True End Sub Sub StopBlink4() ThisWorkbook.Worksheets("Serie C").Range("AP6,AX6,AP83,AX83").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink4", , False End Sub Any help please, Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
run-time error '1004' general odbc error | Excel Programming | |||
Run Time Error 1004: Application or Object Defined Error | Excel Programming | |||
Run Time 1004 Error: Application or Object Difine Error | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming |