Prev: A seemingly simple problem for VBA
Next: How to set macro to run every 15 minutes?
From: JLatham on 19 Apr 2010 21:02
Try this:

Sub flashCell()
nextSecond = Now + TimeValue("00:00:01")
Application.OnTime nextSecond, "flashCell"


If Range("D7").Interior.ColorIndex = 4 Then
Range("D7").Interior.ColorIndex = 5
Range("D7").Value = "SPORT"

ElseIf Range("D7").Interior.ColorIndex = 5 Then
Range("D7").Interior.ColorIndex = 3
Range("D7").Value = "EDUCATION"

ElseIf Range("D7").Interior.ColorIndex = 3 Then
Range("D7").Interior.ColorIndex = 4
Range("D7").Value = "Media"

Else
'to kick it all off
Range("D7").Interior.ColorIndex = 4
Range("D7").Value = "Media"

End If
End Sub


"MAX" wrote:

> I did that but it did not work. Will you please do the code for me since I am
> a very beginner.
>
> Thanks a lot
>
> "JLatham" wrote:
>
> > Yes, Just copy the 3-lines from the ElseIf group and paste it right below
> > that group and then modify it as needed to test for and set the color index
> > of D7 and to set the value to = "Media".
> >
> >
> > "MAX" wrote:
> >
> > > Hello
> > > I have this code (below) and I wish to add another Interior.ColorIndex 5 and
> > > another Value "Media". Is this possible?
> > >
> > > 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("D7").Interior.ColorIndex = 4 Then
> > > Range("D7").Interior.ColorIndex = 6
> > > Range("D7").Value = "SPORT"
> > >
> > > ElseIf Range("D7").Interior.ColorIndex = 6 Then
> > > Range("D7").Interior.ColorIndex = 4
> > > Range("D7").Value = "EDUCATION"
> > >
> > > End If
> > > End Sub
> > >
> > > Thanks in advance
First  |  Prev  | 
Pages: 1 2
Prev: A seemingly simple problem for VBA
Next: How to set macro to run every 15 minutes?