For Next Loop

[amphinomos]

Hi,

For some reason I can't get this loop to work. The Max function finds the largest value in column A and the loop looks through the rows to locate the row and displays it through MsgBox. However I keep getting a "End if without block if" error. Any help would be great.

Please Login or Register  to view this content.

amphi

[Marc L]

Hi,

yes, you must place line End If before line Exit For ! …

[amphinomos]

I also tried that but I get the same error.

[zbor]

Also, why you need loop?

This will do the same:

Please Login or Register  to view this content.

[Izandol]

Remove underscore from end of this line:

Please Login or Register  to view this content.

[Chris 53]

Or

In the If block you could say 'goto EXIT10' instead of 'Exit for'
and set a label just above end sub.
Label to start at the start of the line, not indented and to read "Exit:"

[RudiS]

You should not have the line break character (space and underscore) after the THEN statement
The THEN statement is a natural break to the next line.

Please Login or Register  to view this content.

Good catch zbor... The function evaluates the entire range anyways

[amphinomos]

Thanks guys appreciate it. The Match function worked perfectly. Izandol I removed the underscore but I still get the same error...

[amphinomos]

Got it thanks RudiS.

[Izandol]

Izandol I removed the underscore but I still get the same error...

I do not think this is possible (it would be same code Rudi posted).