Compile error

[Basta1980]

Hi,

I get a 'compile error: Block if without end if' when executing this code;


Private Sub CommandButton1_Click()

If CheckBox1 And CheckBox16 And CheckBox19 Then
Range("Urgent") = 1
End If
If CheckBox1 And CheckBox16 And CheckBox20 Then
Range("Urgent") = 1
End If
If CheckBox1 And CheckBox16 And CheckBox21 Then
Range("Urgent") = 1
End If
If CheckBox1 And CheckBox17 And CheckBox19 Then
Range("Urgent") = 1
End If
If CheckBox1 And CheckBox17 And CheckBox20 Then
Range("High") = 1
End If
If CheckBox1 And CheckBox17 And CheckBox21 Then
Range("Medium") = 1
End If
If CheckBox1 And CheckBox18 And CheckBox19 Then
Range("High") = 1
End If
If CheckBox1 And CheckBox18 And CheckBox20 Then
Range("Medium") = 1
End If
If CheckBox1 And CheckBox18 And CheckBox21 Then
Range("Low") = 1
End If
If CheckBox2 And CheckBox16 And CheckBox19 Then
Range("Urgent") = 1
End If
If CheckBox2 And CheckBox16 And CheckBox20 Then
Range("Urgent") = 1
End If
If CheckBox2 And CheckBox16 And CheckBox21 Then
Range("Urgent") = 1
End If
If CheckBox2 And CheckBox17 And CheckBox19 Then
Range("Urgent") = 1
End If

End Sub

What to do?!

Thnx in advance

Basta

 

[Nigel]

Nothing wrong with this code!

 

[Chip Pearson]

You code looks fine to me and it compiled correctly. What line is
giving you the error?


Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

 

[gimme_this_gimme_that]

Um.

I recommend putting Option Explicit at the top of the module.

It looks like CheckBox1 and those other variables arent' defined.

So the syntax checker is fussing over "CheckBox1 And CheckBox16 And
CheckBox19" which it is not recognizing as a single boolean
expression.

CheckBox1 might be a dropdown instead of a Boolean.

One other thing. I think you want:

Range("Urgent").value = 1

But that's not related to the compile error.

You might consider changing all those if statements to a select-case
statement.

That's a matter of personal preference.



If CheckBox1 And CheckBox16 And CheckBox19 Then
Range("Urgent") = 1

 

[Basta1980]

Chip,

Private Sub CommandButton1_Click() is yellow and the End sub is blue. I even
added the option explicit like gimme_this advised but doenst stop the macro
f'rom hanging up.

 

[Dave Peterson]

Maybe it's in the other code surrounding this procedure. You may want to look
at that stuff.