my code only allows me to check for two occurrences of the same jobname and thats all, But I need to have it check for more than two occurrences wthin the same month. on the same ws.
here is the code i have so far.
[CODE=vb]Dim Found As Range, temp As Range
Set temp = ws.Columns(2).F ind(what:=JobNa me)
If temp Is Nothing Then
MsgBox JobName & " Not found"
Exit Sub
End If
If temp.Offset(0, 8).Value = "" Then ' It ain't this one
Set Found = ws.Columns(2).F indNext(after:= temp)
Else
Set Found = temp
End If
MsgBox Found.Address(F alse, False [/CODE]
any help would be greatly appreciated, thanks
here is the code i have so far.
[CODE=vb]Dim Found As Range, temp As Range
Set temp = ws.Columns(2).F ind(what:=JobNa me)
If temp Is Nothing Then
MsgBox JobName & " Not found"
Exit Sub
End If
If temp.Offset(0, 8).Value = "" Then ' It ain't this one
Set Found = ws.Columns(2).F indNext(after:= temp)
Else
Set Found = temp
End If
MsgBox Found.Address(F alse, False [/CODE]
any help would be greatly appreciated, thanks