ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Adding code (https://www.excelbanter.com/excel-programming/441812-adding-code.html)

Max
Adding code
 
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

JLatham
Adding code
 
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

JLGWhiz[_2_]
Adding code
 
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" wrote in message
...
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



Max
Adding code
 
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

Max
Adding code
 
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

JLatham
Adding code
 
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


All times are GMT +1. The time now is 04:40 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com