|
Run loop until
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 |
Run loop until
Right after your MsgBox, insert:
Exit Loop -- Gary''s Student - gsnu200755 "Arne Hegefors" wrote: 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 |
Run loop until
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 "Gary''s Student" wrote: Right after your MsgBox, insert: Exit Loop -- Gary''s Student - gsnu200755 "Arne Hegefors" wrote: 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 |
Run loop until
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: Right after your MsgBox, insert: Exit Loop -- Gary''s Student - gsnu200755 "Arne Hegefors" wrote: 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 |
Run loop until
Sorry Arne:
Exit Do -- Gary''s Student - gsnu200755 "Arne Hegefors" wrote: 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 |
| All times are GMT +1. The time now is 06:22 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com