Run loop until

[Arne Hegefors]

Hi! I have a loop that goes through cells. I check if these cells have a
value that corresponds to another value. If so I do certain things. Then I
want to get out of the loop and straight to
Workbooks("FXOptionFile.xls").Close. Now the loop continues until
ActiveCell.Offset(i, 0) = "" . Please help!

Do Until ActiveCell.Offset(i, 0) = ""
If InStr(CStr(ActiveCell.Offset(i, 0)), ID) > 0 Then
exStyle = ActiveCell.Offset(i, 1)
cPrt = ActiveCell.Offset(i, 2)
tpe = ActiveCell.Offset(i, 3)
matDate = ActiveCell.Offset(i, 4)
strike = ActiveCell.Offset(i, 5)
unts = ActiveCell.Offset(i, 6)
bw = ActiveCell.Offset(i, 7)
MsgBox "kjgh"
End If
i = i + 1
Loop

Workbooks("FXOptionFile.xls").Close

 

[Gary''s Student]

Right after your MsgBox, insert:

Exit Loop

 

[JLGWhiz]

See the exit Do statement in your code.

Do Until ActiveCell.Offset(i, 0) = ""
If InStr(CStr(ActiveCell.Offset(i, 0)), ID) > 0 Then
exStyle = ActiveCell.Offset(i, 1)
cPrt = ActiveCell.Offset(i, 2)
tpe = ActiveCell.Offset(i, 3)
matDate = ActiveCell.Offset(i, 4)
strike = ActiveCell.Offset(i, 5)
unts = ActiveCell.Offset(i, 6)
bw = ActiveCell.Offset(i, 7)
MsgBox "kjgh"
Exit Do 'Exit here to continue procedure
End If
i = i + 1
Loop

 

[Arne Hegefors]

that does not work. It says Compilation error Expeted Do, For. Sub, Function
or Property. I cannot understand why this is the case. please help! thanks!

"Gary''s Student" skrev:

 

[Gary''s Student]

Sorry Arne:

Exit Do