Re: Loop routine fails after 10 cycles......

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

How is loadstandings called? Maybe you're passing the wrong week???

And did you really mean to use xlpart in the .find command?

Tom wrote:
>
> Please assist
>
> I am working on the below routine. This is a fantasy football
> application that allows a team owner to check and see what his chosen
> teams are for each week. The routine works great when an owner chooses
> which week they would like to look at. I have a button that is labeled
> "Previous". This routine invokes the below routine and pulls up the
> correct info for the correct week. There are 17 weeks in the NFL
> regular season. For the problem.......
> When an owner clicks the Prev button for weeks 17 down to week 7 the
> routine works perfectly. When the Prev button is clicked one more time
> to go the week 6, the routine will bring up week 16 rather than week 6.
> Any help would be great....
>
> Sub LoadStandings(week As Integer)
>
> Dim RecordFound As Range
> Dim FindRange As Range
>
> GetSheet ("Standings")
>
> Set FindRange = Worksheets("Standings").Range("A2:A20")
>
> Set RecordFound = FindRange.Find(What:=week, LookAt:=xlPart, _
> LookIn:=xlValues, SearchOrder:=xlByColumns)
>
> If Not RecordFound Is Nothing Then
> RecordFound.Activate
> Dashboard.T1Name.Value = Cells(ActiveCell.Row, 2)
> Dashboard.T1W.Value = Cells(ActiveCell.Row, 3)
> Dashboard.T1L.Value = Cells(ActiveCell.Row, 4)
> Dashboard.T1T.Value = Cells(ActiveCell.Row, 5)
> Dashboard.T2Name.Value = Cells(ActiveCell.Row, 6)
> Dashboard.T2W.Value = Cells(ActiveCell.Row, 7)
> Dashboard.T2L.Value = Cells(ActiveCell.Row, 8)
> Dashboard.T2T.Value = Cells(ActiveCell.Row, 9)
> Dashboard.T3Name.Value = Cells(ActiveCell.Row, 10)
> Dashboard.T3W.Value = Cells(ActiveCell.Row, 11)
> Dashboard.T3L.Value = Cells(ActiveCell.Row, 12)
> Dashboard.T3T.Value = Cells(ActiveCell.Row, 13)
> Dashboard.T4Name.Value = Cells(ActiveCell.Row, 14)
> Dashboard.T4W.Value = Cells(ActiveCell.Row, 15)
> Dashboard.T4L.Value = Cells(ActiveCell.Row, 16)
> Dashboard.T4T.Value = Cells(ActiveCell.Row, 17)
> Dashboard.T5Name.Value = Cells(ActiveCell.Row, 18)
> Dashboard.T5W.Value = Cells(ActiveCell.Row, 19)
> Dashboard.T5L.Value = Cells(ActiveCell.Row, 20)
> Dashboard.T5T.Value = Cells(ActiveCell.Row, 21)
> Dashboard.T6Name.Value = Cells(ActiveCell.Row, 22)
> Dashboard.T6W.Value = Cells(ActiveCell.Row, 23)
> Dashboard.T6L.Value = Cells(ActiveCell.Row, 24)
> Dashboard.T6T.Value = Cells(ActiveCell.Row, 25)
> End If
>
>
> End Sub

--

Dave Peterson
.

Relevant Pages

  • Loop routine fails after 10 cycles......
    ... I am working on the below routine. ... application that allows a team owner to check and see what his chosen ... The routine works great when an owner chooses ... When an owner clicks the Prev button for weeks 17 down to week 7 the ...
    (microsoft.public.excel.programming)
  • Re: Loop routine fails after 10 cycles......
    ... With RecordFound ... The routine works great when an owner chooses ... When the Prev button is clicked one more time ...
    (microsoft.public.excel.programming)
  • Functions assigned to variables test
    ... I have the following routine that I found but am not sure what it is doing: ... It seems that this fuctions should check to see if there is an onload ... But what is happening is if run as is, it will do the alert, where prev = ... and then will run the printOnLoad function. ...
    (comp.lang.javascript)
  • Re: File is in use
    ... Usually I do not recommend locking the file all the time, ... your routine gets called alot, ... Prev by Date: ...
    (borland.public.delphi.non-technical)
  • Re: True or just a myth
    ... There's very little, if any, evidence to show that varying the routine ... obviously helps with progress in the long term. ... Ellis ... Prev by Date: ...
    (uk.rec.bodybuilding)