|
Blinking TEXT - Help needed
Hello
I found the following blinking text code via this forum. ------------------------------------------------ ' First, you need to set up a procedure to cause the text to alternate between white and black. ' Put the following code in a regular code module: Private RunWhen As Double Sub StartBlink() If Range("Blink").Font.ColorIndex = 2 Then Range("Blink").Font.ColorIndex = xlColorIndexAutomatic Else Range("Blink").Font.ColorIndex = 2 End If RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink", , True End Sub Sub StopBlink() Range("Blink").Font.ColorIndex = xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink", , False End Sub ' In both these procedures, change the reference to A1 to the cell that should blink. ' When the workbook is closed, you need to cancel OnTime event triggers, ' so put the following code in the ThisWorkbook code module. Private Sub Workbook_BeforeClose(Cancel As Boolean) StopBlink End Sub ' You need to initiate this procedure when the workbook opens, so put the following code ' in the ThisWorkbook code module: Private Sub Workbook_Open() StartBlink End Sub --------------------------------------------------------- Its working fine as long as no other excel file is not open. As soon as I open anything else following error open. "Run-time erroe '1004': Method 'Range' of object'_Global failed." Could anyone please help as I want to use this code while other files are open. Upon receving comments from the group I adjusted the code to reflect the specific workbook. Thanks for the reply. I tried putting that code in as follows. ---------------------------------------------------------------------- Sub StartBlink() If Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = 2 Then Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = xlColorIndexAutomatic Else Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = 2 End If RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink", , True End Sub --------------------------------------------------------------------- But when I re-open the file following error comes up. "Subscript Out of range" Any HELP? Thanks, Naeem |
Blinking TEXT - Help needed
try putting the .xls on the end of the file name
Workbooks("DailyBalance.xls").Sheets("Main").Range ("Blink"). -- Regards, Tom Ogilvy " wrote: Hello I found the following blinking text code via this forum. ------------------------------------------------ ' First, you need to set up a procedure to cause the text to alternate between white and black. ' Put the following code in a regular code module: Private RunWhen As Double Sub StartBlink() If Range("Blink").Font.ColorIndex = 2 Then Range("Blink").Font.ColorIndex = xlColorIndexAutomatic Else Range("Blink").Font.ColorIndex = 2 End If RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink", , True End Sub Sub StopBlink() Range("Blink").Font.ColorIndex = xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink", , False End Sub ' In both these procedures, change the reference to A1 to the cell that should blink. ' When the workbook is closed, you need to cancel OnTime event triggers, ' so put the following code in the ThisWorkbook code module. Private Sub Workbook_BeforeClose(Cancel As Boolean) StopBlink End Sub ' You need to initiate this procedure when the workbook opens, so put the following code ' in the ThisWorkbook code module: Private Sub Workbook_Open() StartBlink End Sub --------------------------------------------------------- Its working fine as long as no other excel file is not open. As soon as I open anything else following error open. "Run-time erroe '1004': Method 'Range' of object'_Global failed." Could anyone please help as I want to use this code while other files are open. Upon receving comments from the group I adjusted the code to reflect the specific workbook. Thanks for the reply. I tried putting that code in as follows. ---------------------------------------------------------------------- Sub StartBlink() If Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = 2 Then Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = xlColorIndexAutomatic Else Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = 2 End If RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink", , True End Sub --------------------------------------------------------------------- But when I re-open the file following error comes up. "Subscript Out of range" Any HELP? Thanks, Naeem |
Blinking TEXT - Help needed
On Apr 3, 1:28 pm, Tom Ogilvy
wrote: try putting the .xls on the end of the file name Workbooks("DailyBalance.xls").Sheets("Main").Range ("Blink"). -- Regards, Tom Ogilvy " wrote: Hello I found the following blinking text code via this forum. ------------------------------------------------ ' First, you need to set up a procedure to cause the text to alternate between white and black. ' Put the following code in a regular code module: Private RunWhen As Double Sub StartBlink() If Range("Blink").Font.ColorIndex = 2 Then Range("Blink").Font.ColorIndex = xlColorIndexAutomatic Else Range("Blink").Font.ColorIndex = 2 End If RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink", , True End Sub Sub StopBlink() Range("Blink").Font.ColorIndex = xlColorIndexAutomatic Application.OnTime RunWhen, "StartBlink", , False End Sub ' In both these procedures, change the reference to A1 to the cell that should blink. ' When the workbook is closed, you need to cancel OnTime event triggers, ' so put the following code in the ThisWorkbook code module. Private Sub Workbook_BeforeClose(Cancel As Boolean) StopBlink End Sub ' You need to initiate this procedure when the workbook opens, so put the following code ' in the ThisWorkbook code module: Private Sub Workbook_Open() StartBlink End Sub --------------------------------------------------------- Its working fine as long as no other excel file is not open. As soon as I open anything else following error open. "Run-time erroe '1004': Method 'Range' of object'_Global failed." Could anyone please help as I want to use this code while other files are open. Upon receving comments from the group I adjusted the code to reflect the specific workbook. Thanks for the reply. I tried putting that code in as follows. ---------------------------------------------------------------------- Sub StartBlink() If Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = 2 Then Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = xlColorIndexAutomatic Else Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").Font.ColorIndex = 2 End If RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartBlink", , True End Sub --------------------------------------------------------------------- But when I re-open the file following error comes up. "Subscript Out of range" Any HELP? Thanks, Naeem- Hide quoted text - - Show quoted text - Hurray - it worked.....Thanks a lot Naeem |
| All times are GMT +1. The time now is 09:19 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com