Run loop until

A

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
 
J

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
 
A

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:
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top