Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Arrange code
Hello
I have this code (below) which works perfect. 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("A105").Interior.ColorIndex = 3 Then Range("A105").Interior.ColorIndex = 5 Range("A105").Value = IIf(Range("F102") = Range("G102"), Range("A99"), IIf(Range("F102") Range("G102"), Range("E102"), Range("H102"))) ElseIf Range("A105").Interior.ColorIndex = 5 Then Range("A105").Interior.ColorIndex = 3 Range("A105").Value = "CHAMPIONS 2009-2010" End If End Sub Now I need to add something else to it, where if cells F102 and G102 remain equal, then Range("A105").Value = Range(J102)Range(K102),Range(E102),Range(H102). I appriciate even a small help. Thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Arrange code
then Range("A105").Value =
Range(J102)Range(K102),Range(E102),Range(H102). This needs clarification. Did you want an IIf statement Or A105 = The greater of J102 Or Sum(E102, H102, K102) Or A105 = Sum(E102, H102, J102,K102) assuming the was a typo. Or what? "MAX" wrote in message ... Hello I have this code (below) which works perfect. 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("A105").Interior.ColorIndex = 3 Then Range("A105").Interior.ColorIndex = 5 Range("A105").Value = IIf(Range("F102") = Range("G102"), Range("A99"), IIf(Range("F102") Range("G102"), Range("E102"), Range("H102"))) ElseIf Range("A105").Interior.ColorIndex = 5 Then Range("A105").Interior.ColorIndex = 3 Range("A105").Value = "CHAMPIONS 2009-2010" End If End Sub Now I need to add something else to it, where if cells F102 and G102 remain equal, then Range("A105").Value = Range(J102)Range(K102),Range(E102),Range(H102). I appriciate even a small help. Thanks in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Arrange code
I went ahead with the assumption that you wanted an additional ElseIf
statement. This would be inserted just before the End If. ElseIf Range("F102") = Range("G102") Then Range("A105") = IIf(Range("J102") Range("k102"), _ Range("E102"), Range("H102")) "MAX" wrote in message ... Hello I have this code (below) which works perfect. 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("A105").Interior.ColorIndex = 3 Then Range("A105").Interior.ColorIndex = 5 Range("A105").Value = IIf(Range("F102") = Range("G102"), Range("A99"), IIf(Range("F102") Range("G102"), Range("E102"), Range("H102"))) ElseIf Range("A105").Interior.ColorIndex = 5 Then Range("A105").Interior.ColorIndex = 3 Range("A105").Value = "CHAMPIONS 2009-2010" End If End Sub Now I need to add something else to it, where if cells F102 and G102 remain equal, then Range("A105").Value = Range(J102)Range(K102),Range(E102),Range(H102). I appriciate even a small help. Thanks in advance. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Arrange code
That got all skewed around, hopefully this will look better and won't wrap
when it posts. ElseIf Range("F102") = Range("G102") Then Range("A105") = IIf(Range("J102") Range("k102"), _ Range("E102"), Range("H102")) "JLGWhiz" wrote in message ... I went ahead with the assumption that you wanted an additional ElseIf statement. This would be inserted just before the End If. ElseIf Range("F102") = Range("G102") Then Range("A105") = IIf(Range("J102") Range("k102"), _ Range("E102"), Range("H102")) "MAX" wrote in message ... Hello I have this code (below) which works perfect. 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("A105").Interior.ColorIndex = 3 Then Range("A105").Interior.ColorIndex = 5 Range("A105").Value = IIf(Range("F102") = Range("G102"), Range("A99"), IIf(Range("F102") Range("G102"), Range("E102"), Range("H102"))) ElseIf Range("A105").Interior.ColorIndex = 5 Then Range("A105").Interior.ColorIndex = 3 Range("A105").Value = "CHAMPIONS 2009-2010" End If End Sub Now I need to add something else to it, where if cells F102 and G102 remain equal, then Range("A105").Value = Range(J102)Range(K102),Range(E102),Range(H102). I appriciate even a small help. Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Arrange Footer | Excel Worksheet Functions | |||
vb code to re-arrange data | Excel Programming | |||
Help with code to re-arrange data for pareto analysis | Excel Programming | |||
re-arrange text | Excel Worksheet Functions | |||
Arrange and Tiled | Excel Programming |