nevermind Gents. I figured it out,
I threw an if statement in as follows:
Sub PlayerStats2()
Dim ce As Range
Dim sRng As String
sRng = Offset1
For Each ce In Sheets("Matches").Range(sRng)
Set findit = Sheets("Standings").Range("B4:B11").Find(what:=ce.Value)
If Not findit Is Nothing Then
'update column J with SL value
If ce.Offset(0, 2).Value = "W" Then
findit.Offset(0, 8).Value = findit.Offset(0, 8).Value + ce.Offset(0, 3).Value
End If
End If
Set findit = Sheets("Standings").Range("A17:A24").Find(what:=ce.Value)
If Not findit Is Nothing Then
'update Total points by 1
findit.Offset(0, (ce.Offset(0, 3) * 2) + 1).Value = findit.Offset(0, (ce.Offset(0, 3) * 2) + 1).Value + 1
'update win count by 1
If ce.Offset(0, 2).Value = "W" Then
findit.Offset(0, (ce.Offset(0, 3) * 2)).Value = findit.Offset(0, (ce.Offset(0, 3) * 2)).Value + 1
End If
End If
Next ce
MsgBox ("Stats Updated")
End Sub
Bookmarks