Code error

M

MAX

I am using this code (below) and it is giving me an error (Variable not
defined) with the letter A of Serie A highlighted. Any help please?

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("AN6").Interior.ColorIndex = 3 Then
Serie A.Range("AN6").Interior.ColorIndex = 41
Serie A.Range("AN6").Value = "Light Blue"


ElseIf Range("AN6").Interior.ColorIndex = 41 Then
Serie A.Range("AN6").Interior.ColorIndex = 3
Serie A.Range("AN6").Value = "Pink"

End If

If Range("AW6").Interior.ColorIndex = 3 Then
Serie A.Range("AW6").Interior.ColorIndex = 41
Serie A.Range("AW6").Value = "Light Blue"


ElseIf Range("AW6").Interior.ColorIndex = 41 Then
Serie A.Range("AW6").Interior.ColorIndex = 3
Serie A.Range("AW6").Value = "Pink"


End If
End Sub

Thanks for your help.
 
J

Jacob Skaria

You have not referred the workbook and worksheet. If you are trying this out
in your ActiveWorkbook replace

Serie A.Range("AN6")

with

ActiveWorkbook.Sheets("<Sheename>").Range("AN6")
(type in the sheename between quotes.)

If this post helps click Yes
 
N

Nigel

Serie A - is not a valid object or variable name, if it is a worksheet
name use

Sheets("Serie A")
 
J

Jacob Skaria

Adjust Range("B5:Z37") as your requirement..

Sub Macro()
Dim lngRow As Long
Dim intTemp As Integer
Dim arrData(17) As Variant
Range("N2") = Range("N2") + 7
arrData(0) = Range("C37")
For lngRow = 5 To 37 Step 2
intTemp = intTemp + 1
arrData(intTemp) = Range("C" & lngRow)
Range("C" & lngRow) = arrData(intTemp - 1)
Next
Range("C1") = varValue

Range("B5:Z37").ClearContents
Range("B5:Z37").ClearComments
Range("B5:Z37").ClearFormats

End Sub

If this post helps click Yes
 
M

MAX

Will you please arrange the code for me because I tried it and it is not
working so I thing I am doing something wrong.

Thanks
 
J

Jacob Skaria

Please try this

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"

With Sheets("Serie A")
If .Range("AN6").Interior.ColorIndex = 3 Then
.Range("AN6").Interior.ColorIndex = 41
.Range("AN6").Value = "Light Blue"


ElseIf .Range("AN6").Interior.ColorIndex = 41 Then
.Range("AN6").Interior.ColorIndex = 3
.Range("AN6").Value = "Pink"

End If

If .Range("AW6").Interior.ColorIndex = 3 Then
.Range("AW6").Interior.ColorIndex = 41
.Range("AW6").Value = "Light Blue"


ElseIf .Range("AW6").Interior.ColorIndex = 41 Then
.Range("AW6").Interior.ColorIndex = 3
.Range("AW6").Value = "Pink"


End If
End With
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Flashing cells 5
Adding code 5
Run Error while protected 1
Adding code 2
Cells flashing 2
Code help 6
Protection in VBA. 2
Arrange code 3

Top