• Home
 · 
• String Manipulation
 · 
• Create a system that lets the user type in a home team and an away team, then the score and updates

Create a system that lets the user type in a home team and an away team, then the score and updates

Create a system that lets the user type in a home team and an away team, then the score and updates the spreadsheet with games played, won,

Rate Create a system that lets the user type in a home team and an away team, then the score and updates

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

hometeam = InputBox("Enter Home team")
awayteam = InputBox("Enter Away team")
'start at the top of the teams list
    Range("B2").Select
    
    'repeatedly move down the list until the team is found or the bottom of the list is found
    While ActiveCell.Value <> team And ActiveCell.Value <> ""
        moveDown  'see module1
    Wend
    'if the team has been found then move across and increment the number of matches played
    If ActiveCell.Value = team Then
        moveRight  'see module1
        ActiveCell.Value = ActiveCell.Value + 1
    Else
        MsgBox "team not found", vbExclamation, "Team Not Found"
    End If
    'end of increase games played section
homescore = InputBox("please enter the score that the home team got")
awayscore = InputBox("please enter the score that the away team got")

Range("d2").Select
'starts at top of list
While ActiveCell.Value <> W And ActiveCell.Value <> ""
moveDown
Wend
If homescore > awayscore Then
ActiveCell.Value = ActiveCell.Value + 1
End If

If awayscore > homescore Then
ActiveCell.Value = ActiveCell.Value + 1
End If

End Sub