Hi guys, I am running a loop to grab values from a fixed position in
relation to a unique model name. Sometimes the user asks for models that
do not exist. On this case the value (forecast) should = 0. To
accomplish this I wrote an error trap, and it works on the first
instance but if the user should ask for a second non existant model the
seleciton.find command errors out with run time code 91.
---- CODE ---
Do While model < ""
On Error GoTo notfound
Sheets("database").Columns("B:B").Select
Selection.Find(What:=model, LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Select
forecast = ActiveCell.Offset(0, 7 + week)
continue:
Sheets("work").Range("A" & rowcount + 8) = model
Sheets("work").Range("B" & rowcount + 8) = forecast
model = Sheets("data").Range("A" & modelcount)
rowcount = rowcount + 1
modelcount = modelcount + 1
Loop
Sheets("work").Activate
End If
Exit Sub
notfound:
forecast = 0
GoTo continue
End Sub


--
jmootrey
------------------------------------------------------------------------
jmootrey's Profile: 1387
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=184562

Microsoft Office Help