Prev: Wrapping entries in a ListBox
Next: VBA code to protect cells Outside a given range
From: MAX on 27 Apr 2010 14:32
Yes I want to combine the two sets of code into one set of code in a single
workbook.

Thank you


"Gord Dibben" wrote:

> I would assume by "separate sheets" you mean separate workbooks because you
> cannot have two Workbook_Open events in one workbook.
>
> Do you want to combine the two sets of code into one set of code in a single
> workbook?
>
> I note your "Flashcell" macro has no qualifying worksheet.
>
>
> Gord Dibben MS Excel MVP
>
> On Tue, 27 Apr 2010 09:01:01 -0700, MAX <MAX(a)discussions.microsoft.com>
> wrote:
>
> >I have these codes (below) in 2 seperate sheets. Is it possible to use these
> >codes in one sheet?
> >If yes, where and how I have to put them?
> >
> >These are the 2 codes:
> >
> >1st Code:
> >
> >In Workbook:
> >-------------------
> >Private Sub Workbook_Open()
> > StartBlink1
> >
> >End Sub
> >
> >Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > StopBlink1
> >
> >End Sub
> >
> >In Module:
> >--------------
> >Public RunWhen As Double
> >
> >Sub StartBlink1()
> > With ThisWorkbook.Worksheets("Champions League").Range("A2").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, "StartBlink1", , True
> >End Sub
> >
> >Sub StopBlink1()
> > ThisWorkbook.Worksheets("CHAMPIONS LEAGUE ").Range("A2").Font.ColorIndex
> >= _
> > xlColorIndexAutomatic
> > Application.OnTime RunWhen, "StartBlink1", , False
> >End Sub
> >++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
> >
> >2nd Code:
> >
> >In Workbook:
> >-------------------
> >Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > stopFlashing
> >End Sub
> >
> >Private Sub Workbook_Open()
> > startFlashing
> >End Sub
> >
> >In Module:
> >--------------
> >Option Explicit
> > Dim nextSecond
> >
> > Sub startFlashing()
> > flashCell
> > End Sub
> >
> > Sub stopFlashing()
> > On Error Resume Next
> > Application.OnTime nextSecond, "flashCell", , False
> > End Sub
> >
> > Sub flashCell()
> > nextSecond = Now + TimeValue("00:00:01")
> > Application.OnTime nextSecond, "flashCell"
> >
> >
> > If Range("A114").Interior.ColorIndex = 3 Then
> > Range("A114").Interior.ColorIndex = 5
> > Range("A114").Value = IIf(Range("K112") = Range("L112"),
> >Range("A108"), IIf(Range("K112") > Range("L112"), Range("E111"),
> >Range("H111")))
> > ElseIf Range("A114").Interior.ColorIndex = 5 Then
> > Range("A114").Interior.ColorIndex = 3
> > Range("A114").Value = "CHECKED"
> > End If
> > End Sub
>
> .
>
First  |  Prev  | 
Pages: 1 2
Prev: Wrapping entries in a ListBox
Next: VBA code to protect cells Outside a given range