teamofthemonth.vbsq

Sub GreedyTeamOfTheMonth() 'GTOTM
    Call GetLogs
    Dim Team As String
    Dim counter As Integer
    Dim Teams(15, 2)

    counter = 0
    For j = LBound(samLogs) To TotalRows - 1
        If InStr(samLogs(1, j), "2021") Then
            Team = samLogs(7, j)
            If Not Team = "" Then
                For k = LBound(Teams) To UBound(Teams) - 1
                    'If Teams(k, 0) = samLogs(7, j) Then
                    If InStr(Teams(k, 0), samLogs(7, j)) Then
                        'Teams(k, 0) = samLogs(7, j)
                        'Teams(k, 1) = Teams(k, 1) + 1
                        'Debug.Print "Special case  " & samLogs(7, j)
                        Debug.Print "Repeat"
                    Else
                        If counter <= UBound(Teams) Then
                            'Debug.Print "Dont Repeat"
                            Teams(counter, 0) = samLogs(7, j)
                            Teams(counter, 1) = 1
                            counter = counter + 1
                        End If
                    End If
                Next k
            End If
        End If
    Next j

    For l = LBound(Teams) To UBound(Teams) - 1
       'Debug.Print Teams(l, 0) & "   " & Teams(l, 1)
    Next l

    For m = LBound(samLogs) To UBound(samLogs) - 1
       'Debug.Print samLogs(7, m)
    Next m


End Sub