Compile Error: End if wtihout block if

lijon · #1 (**permalink**) 03-04-08, 12:36

HI EVERYONE... I keep getting the error above and can't seem to figure out where my End If's are supposed to be. Please help. Mucho Gracias!!

sRow = 2

Range("a1").Select
If Range("a1").Offset(1, 0).Value <> "" Then
Selection.End(xlDown).Select
End If
eRow = ActiveCell.Row

For cnt = sRow To eRow

If Left(Range("a" & cnt).Value, 3) = "Buy" Or Left(Range("a" & cnt).Value, 4) = "Sell" _
Then Range("A" & cnt).Offset(0, 11).Value = (Range("A" & cnt).Offset(0, 3).Value / 1000000) * Range("A" & cnt).Offset(0, 5).Value
total = total + Range("A" & cnt).Offset(0, 11).Value
End If

If Left(Range("A" & cnt).Value, 5) = " t " Then Range("A" & cnt).Offset(0, 11).Value = total
End If

If Left(Range("A" & cnt).Value, 5) = " t " Then Range("A" & cnt).Offset(0, 12).Value = Range("A" & cnt).Offset(0, 11).Value _
/ (Range("A" & cnt).Offset(0, 3).Value / 1000000)

total = 0

If Left(Range("A" & cnt).Value, 5) = " t " Then Range("A" & cnt & ":" & "M" & cnt).Font.Bold = True
If Left(Range("A" & cnt).Value, 5) = " t " Then Range("A" & cnt & ":" & "M" & cnt).Interior.ColorIndex = 6
End If

Next cnt

End Sub

michaeldavid · #2 (**permalink**) 03-04-08, 13:11

Hi,

If you put the whole statement on a single line ie

If AVariable = 10 then DoSomething

Then there is no need for an "End if"
This also applies if you use a line continuation with a space and Underscore.

However if you place a line in it ie

If AVariable = 10 then
DoSomething
End If

Then there is a requirement for an "End If"

Hope this helps

MarkReez · #3 (**permalink**) 03-05-08, 07:40

If Left(Range("A" & cnt).Value, 5) = " t " Then Range("A" & cnt).Offset(0, 12).Value = Range("A" & cnt).Offset(0, 11).Value _
/ (Range("A" & cnt).Offset(0, 3).Value / 1000000)

total = 0
END IF

If Left(Range("A" & cnt).Value, 5) = " t " Then Range("A" & cnt & ":" & "M" & cnt).Font.Bold = True
END IF
If Left(Range("A" & cnt).Value, 5) = " t " Then Range("A" & cnt & ":" & "M" & cnt).Interior.ColorIndex = 6
End If

norie · #4 (**permalink**) 03-08-08, 12:24

Try this.

Code:

    sRow = 2
    
    Range("a1").Select
    
    If Range("a1").Offset(1, 0).Value <> "" Then
        Selection.End(xlDown).Select
    End If
    
    eRow = ActiveCell.Row
    
    For cnt = sRow To eRow
    
    If Left(Range("a" & cnt).Value, 3) = "Buy" Or Left(Range("a" & cnt).Value, 4) = "Sell" Then
        Range("A" & cnt).Offset(0, 11).Value = (Range("A" & cnt).Offset(0, 3).Value / 1000000) * Range("A" & cnt).Offset(0, 5).Value
        total = total + Range("A" & cnt).Offset(0, 11).Value
    End If
    
    
    If Left(Range("A" & cnt).Value, 5) = " t " Then
        Range("A" & cnt).Offset(0, 11).Value = total
    End If
    
    If Left(Range("A" & cnt).Value, 5) = " t " Then
        Range("A" & cnt).Offset(0, 12).Value = Range("A" & cnt).Offset(0, 11).Value / (Range("A" & cnt).Offset(0, 3).Value / 1000000)
    
        total = 0
    End If
    
    If Left(Range("A" & cnt).Value, 5) = " t " Then
        Range("A" & cnt & ":" & "M" & cnt).Font.Bold = True
        Range("A" & cnt & ":" & "M" & cnt).Interior.ColorIndex = 6
    End If
    
    Next cnt

Note as well as sorting the If/End Ifs I've indented the code.

Doing that makes it far easier to read and far easier to debug.

Internet Services

Web Development

Digital Marketing

Consumer Tech