VBA "Compile Error: Else without If"

Question

So far nobody's "solution" fixes my bug, any tips?

I'm debugging a macro in VBA and I get this error:

"Compile error: Else without If"

Any tips on how to fix this?

Here is the important portion of the code:

For Ind4 = 1 To iPlateNo
    Ind6 = Ind4 + 2
    MeanComp = 0.6 * Cells(81, Ind6).Value
    For Ind5 = 1 To iMxRNo
        If Cells(Ind5, Ind6).Value < MeanComp Then Cells(Ind5, Ind6).Interior.Color = RGB(255, 0, 0)
'           If the cell value is less than the average highlight them red as outliers. (More likely: from pipettes that didn't release)
        ElseIf Cells(Ind5, Ind6).Value > MeanComp Then Cells(Ind5, Ind6).Interior.Color = RGB(7, 253, 56)
'           If the cell value is greater than the average highlight them green as outliers. (Unlikely unless )
        Else
        End If
    Next Ind5
Next Ind4

@moffeltje thanks, I don't see what Next Ind5 was supposed to line up with, but I still have the error message. — user4974730
– user4974730, Commented Jun 17, 2015 at 12:36

Raystafarian · Accepted Answer · 2015-06-17 12:35:40Z

1

Change the layout of your code -

For Ind4 = 1 To iPlateNo
    Ind6 = Ind4 + 2
    MeanComp = 0.6 * Cells(81, Ind6).Value
    For Ind5 = 1 To iMxRNo
        If Cells(Ind5, Ind6).Value < MeanComp Then
        Cells(Ind5, Ind6).Interior.Color = RGB(255, 0, 0)
'           If the cell value is less than the average highlight them red as outliers. (More likely: from pipettes that didn't release)
        ElseIf Cells(Ind5, Ind6).Value > MeanComp Then
        Cells(Ind5, Ind6).Interior.Color = RGB(7, 253, 56)
'           If the cell value is greater than the average highlight them green as outliers. (Unlikely unless )

        End If
    Next Ind5
Next Ind4

answered Jun 17, 2015 at 12:35

Raystafarian

3,0622 gold badges32 silver badges43 bronze badges

Sign up to request clarification or add additional context in comments.

6 Comments

user4974730 Over a year ago

That does seem to compile fine, but then I get this error message: "Run-time error '438': Object doesn't support this property or method". Is this related to this problem?

Raystafarian Over a year ago

I don't know the rest of your code. Where does error 438 occur?

user4974730 Over a year ago

on a line with "Application.CalculationxlManual" near the start of my macro.

Raystafarian Over a year ago

That's really broad and very difficult to diagnose without the rest of the code.

Raystafarian Over a year ago

@ThomasShera if one of the answers has solved your question, please click the green checkmark next to it to mark the question as answered.

|

Dportology · Accepted Answer · 2015-06-17 12:48:05Z

1

For Ind4 = 1 To iPlateNo
    Ind6 = Ind4 + 2
    MeanComp = 0.6 * Cells(81, Ind6).Value
    For Ind5 = 1 To iMxRNo
        If Cells(Ind5, Ind6).Value < MeanComp Then
            Cells(Ind5, Ind6).Interior.Color = RGB(255, 0, 0)
        ElseIf Cells(Ind5, Ind6).Value > MeanComp Then
            Cells(Ind5, Ind6).Interior.Color = RGB(7, 253, 56)
        End If
    Next Ind5
Next Ind4

This seems to compile just fine

edit: removed sub procedure around code

edited Jun 17, 2015 at 12:48

answered Jun 17, 2015 at 12:36

Dportology

8081 gold badge9 silver badges32 bronze badges

3 Comments

user4974730 Over a year ago

That does seem to compile fine, but then I get this error message: "Run-time error '438': Object doesn't support this property or method". Is this related to this problem?

user4974730 Over a year ago

I am running this in a larger macro, so I got rid of the Private Sub line and the End Sub line and inserted it.

Dportology Over a year ago

Ya sorry, I put it in an editor and needed to add the sub

yashika vaish · Accepted Answer · 2017-11-23 08:30:19Z

0

You just need to make the small change in the code that put the statement 
after then in the next line shown in the below code highlighted as bold.
For Ind4 = 1 To iPlateNo
Ind6 = Ind4 + 2
MeanComp = 0.6 * Cells(81, Ind6).Value
For Ind5 = 1 To iMxRNo
If Cells(Ind5, Ind6).Value < MeanComp **Then
Cells(Ind5, Ind6).Interior.Color = RGB(255, 0, 0)**

' If the cell value is less than the average highlight them red as outliers. ElseIf Cells(Ind5, Ind6).Value > MeanComp Then Cells(Ind5, Ind6).Interior.Color = RGB(7, 253, 56) Else End If Next Ind5 Next Ind4

answered Nov 23, 2017 at 8:30

yashika vaish

2016 silver badges19 bronze badges

Collectives™ on Stack Overflow

VBA "Compile Error: Else without If"

3 Answers 3

6 Comments

3 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

6 Comments

3 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related