Adding code

Prev: A seemingly simple problem for VBA
Next: How to set macro to run every 15 minutes?

From: MAX on 19 Apr 2010 18:35

---

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

From: JLatham on 19 Apr 2010 19:02

---

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

From: JLGWhiz on 19 Apr 2010 19:05

---

You will need ot add in the missing info below.

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"

ElseIf Range("D7").Interior.ColorIndex = 5 Then
Range("D7").Interiror.ColorIndex = ? '<<<<You did not
specify
Range("D7").Value = "Media"

End If
End Sub







"MAX" <MAX(a)discussions.microsoft.com> wrote in message
news:E975DD4A-1C27-4C5B-A234-6F5046B57614(a)microsoft.com...
> 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

From: MAX on 19 Apr 2010 19:14

---

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

From: MAX on 19 Apr 2010 20:06

---

I want Interior.ColorIndex 5 and Interior.ColorIndex 3

"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

 |  Next  |  Last
Pages: 1 2
Prev: A seemingly simple problem for VBA
Next: How to set macro to run every 15 minutes?