Hello
I want to arrage the code (below).
Instead I write the "TEAM'S Name" by myself, I want to create a formula or
something else in this code so that when A1>A5 it appears the team's name in
cell A2 and when A1<A5 it appears the team's name in cell A4. Is this
possible?

This is the code:

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("J65").Interior.ColorIndex = 3 Then
Range("J65").Interior.ColorIndex = 5
Range("J65").Value = "TEAM's Name"
ElseIf Range("J65").Interior.ColorIndex = 5 Then
Range("J65").Interior.ColorIndex = 3
Range("J65").Value = "CHAMPIONS 2009-2010"
End If
End Sub

Thanks in advance.

Try

Range("J65").Value = IIF(Range("A1")>Range("A5"),Range("A2"),Range("A4"))

--
Jacob


"MAX" wrote:

> Hello
> I want to arrage the code (below).
> Instead I write the "TEAM'S Name" by myself, I want to create a formula or
> something else in this code so that when A1>A5 it appears the team's name in
> cell A2 and when A1<A5 it appears the team's name in cell A4. Is this
> possible?
>
> This is the code:
>
> 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("J65").Interior.ColorIndex = 3 Then
> Range("J65").Interior.ColorIndex = 5
> Range("J65").Value = "TEAM's Name"
> ElseIf Range("J65").Interior.ColorIndex = 5 Then
> Range("J65").Interior.ColorIndex = 3
> Range("J65").Value = "CHAMPIONS 2009-2010"
> End If
> End Sub
>
> Thanks in advance.

Hi Jacob
This is giving me this:
Compile error
Expected: end of statement.

Sorry for any inconvenience

Thanks.

"Jacob Skaria" wrote:

> Try
>
> Range("J65").Value = IIF(Range("A1")>Range("A5"),Range("A2"),Range("A4"))
>
> --
> Jacob
>
>
> "MAX" wrote:
>
> > Hello
> > I want to arrage the code (below).
> > Instead I write the "TEAM'S Name" by myself, I want to create a formula or
> > something else in this code so that when A1>A5 it appears the team's name in
> > cell A2 and when A1<A5 it appears the team's name in cell A4. Is this
> > possible?
> >
> > This is the code:
> >
> > 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("J65").Interior.ColorIndex = 3 Then
> > Range("J65").Interior.ColorIndex = 5
> > Range("J65").Value = "TEAM's Name"
> > ElseIf Range("J65").Interior.ColorIndex = 5 Then
> > Range("J65").Interior.ColorIndex = 3
> > Range("J65").Value = "CHAMPIONS 2009-2010"
> > End If
> > End Sub
> >
> > Thanks in advance.

Sorry Mr.Jacob you were right, it works 100%.

Thanks a lot

"Jacob Skaria" wrote:

> Try
>
> Range("J65").Value = IIF(Range("A1")>Range("A5"),Range("A2"),Range("A4"))
>
> --
> Jacob
>
>
> "MAX" wrote:
>
> > Hello
> > I want to arrage the code (below).
> > Instead I write the "TEAM'S Name" by myself, I want to create a formula or
> > something else in this code so that when A1>A5 it appears the team's name in
> > cell A2 and when A1<A5 it appears the team's name in cell A4. Is this
> > possible?
> >
> > This is the code:
> >
> > 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("J65").Interior.ColorIndex = 3 Then
> > Range("J65").Interior.ColorIndex = 5
> > Range("J65").Value = "TEAM's Name"
> > ElseIf Range("J65").Interior.ColorIndex = 5 Then
> > Range("J65").Interior.ColorIndex = 3
> > Range("J65").Value = "CHAMPIONS 2009-2010"
> > End If
> > End Sub
> >
> > Thanks in advance.