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