| Home |
| Search |
| Today's Posts |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
crash on second pass of loop
You have a reply at your post in .misc
Rob wrote: What I am trying to do is find the total amount of time my site goes down from a spread sheet containing times and error messages. Each error message stats with "ERROR". It all works when there is only one consecutive error, but when it enters the loop it crashes on it's second pass. Any Suggestions? Sub Total() Dim ObjErrorString, ObjOkString Dim ObjErrorCell, ObjErrorTime Dim ObjOkCell, ObjOkTime Dim ObjTotal Set ObjErrorCell = Cells.Find(What:="ERROR", After:=ActiveCell, SearchOrder:=xlByColumns, SearchDirection:=xlNext) ObjErrorString = Left(ObjErrorCell.Offset(1, 0).Value, 5) Do Until ObjErrorString < "ERROR" ObjErrorCell = ObjErrorCell.Offset(1, 0) Set ObjErrorString = Left(ObjErrorCell.Offset(1, 0).Value, 5) Loop ObjErrorCell.Select Set ObjErrorTime = ActiveCell.Offset(0, -ActiveCell.Column + 1) Set ObjOkCell = Cells.Find(What:="OK", After:=ActiveCell, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) ObjOkCell.Select Set ObjOkTime = ActiveCell.Offset(0, -ActiveCell.Column + 1) ObjTotal = ObjOkTime - ObjErrorTime Range("E389").Value = ObjTotal End Sub -- Dave Peterson |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Error on second pass of loop. | Excel Discussion (Misc queries) | |||
| error on second pass of loop. | Excel Discussion (Misc queries) | |||
| Advancing outer Loop Based on criteria of inner loop | Excel Programming | |||
| Problem adding charts using Do-Loop Until loop | Excel Programming | |||
| Using a Loop Statement to Pass Data between WKS and Output File | Excel Programming | |||
Threaded Mode
