Compile error

M

MAX

Hello
I am writing this code (below) and a window appears with Compile error and
Syntax error. I am having also this part of the code highlighted.
Range("A105").Value = IIf(Range("F102") = Range("G102"), Range("A99"),
IIf(Range("F102") > Range("G102"), Range("E102"),

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("A105").Interior.ColorIndex =4 Then
Range("A105").Interior.ColorIndex = 6
Range("A105").Value = IIf(Range("F102") = Range("G102"),
Range("A99"), IIf(Range("F102") > Range("G102"), Range("E102"),

Range("H102")))
ElseIf Range("A105").Interior.ColorIndex = 6 Then
Range("A105").Interior.ColorIndex = 4
Range("A105").Value = "WORLD CHAMPIONS 2010"
End If
End Sub

I appriciate even a small help.
Thanks in advance.
 
J

Joe User

MAX said:
I am writing this code (below) and a window appears
with Compile error and Syntax error.

I suspect that your error is due to an explicit line break without the
necessary continuation character. But it is difficult to say for sure since
it is difficult to discern which line breaks in your posting are due to text
wrapping in the message v. what you actually entered in the VBA enter.

In summary, VBA statements must be a "single" line. Long lines can be
continued by putting an underscore (_) at the end, but only after a space;
ergo, only where a space is valid in the statement.

The following should work "for sure", keeping lines short enough to avoid
line wrapping in the message (I hope):

Range("A105").Value = _
IIf(Range("F102") = Range("G102"), Range("A99"), _
IIf(Range("F102") > Range("G102"), Range("E102"), _
Range("H102")))


----- original message -----
 
M

MAX

Thanks Joe it worked but now I need to add another Elself statement which is:

If cells F102 and G102 remain equal, then Range("A105").Value =
Range(J102)>Range(K102),Range(E102),Range(H102).

Will you please tell me how to write this statement and where I have to
insert it.

Again thank you so much.
 
J

Joe User

MAX said:
now I need to add another Elself statement which is:
If cells F102 and G102 remain equal, then
Range("A105").Value =
Range(J102)>Range(K102),Range(E102),Range(H102)

Your requirement is unclear because in your original posting, the result was
Range("A99") if Range("F102")=Range("G102"). So instead of "another
ElseIf", perhaps you want:

Range("A105").Value = _
IIf(Range("F102") = Range("G102"), _
IIf(Range("J102") > Range("K102"), Range("E102"), _
Range("H102")), _
IIf(Range("F102") > Range("G102"), Range("E102"), _
Range("H102")))

Of course, I would indent that differently for readability. But I have had
trouble with the appearance of indented text in postings. So I avoid it :-(.

Also, I hasten to point out that unlike some computer languages, VBA fully
evaluates the entire expression, even if the truth value of some
subexpressions would obviate the need to evaluate other subexpressions.

So for example, if it would be incorrect to compare
Range("J102")>Range("K102") when Range("F102")>Range("G102"), it would
behoove you to restructure the code. For example:

'better to declare the type of x;
'but I cannot infer that from your code fragment
Dim x
If Range("F102") = Range("G102") Then
x = IIf(Range("J102") > Range("K102"), Range("E102"), _
Range("H102"))
Else
x = IIf(Range("F102") > Range("G102"), Range("E102"), _
Range("H102")))
End If
Range("A105").Value = x


----- original message -----
 
J

Joe User

MAX said:
Joe sorry for any inconvenience, shall I send you the file?

I 'spose you could. Send it to joeu2004 "at" hotmail.com.

But it's not obvious to me that that would be any better than your simply
posting the code fragment here, written as well as you can with syntax errors.


----- original message -----
 
J

Joe User

MAX said:
Is there any mistakes in the email address cause
it returned back?

Nope. Try using copy-and-paste to paste joeu2004, then type "@", then paste
hotmail.com in the To field of your message.


----- original message -----
 

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

Arrange code 3
Adding code 5
Adding code 2
2 codes in one sheet 5
Code arrangement 3
Two codes in one set. 1
Code help 6
Cells flashing 2

Top