Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code arrangement
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 A1A5 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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code arrangement
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 A1A5 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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code arrangement
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 A1A5 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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code arrangement
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 A1A5 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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Arrangement problems. | Excel Discussion (Misc queries) | |||
Arrangement | Excel Discussion (Misc queries) | |||
Data Arrangement | Excel Discussion (Misc queries) | |||
Re-arrangement | Excel Discussion (Misc queries) | |||
Worksheet re-arrangement | Excel Worksheet Functions |