Dubbele namen voorkomen

[wieter]

Met onderstaande code, probeer ik dubbele namen te voorkomen in de planning.
Deze code werkt alleen voor rij 5.
Nu wil ik dat die code functioneert in alle rijen apart.(tot rij 370)
Ik heb met een "For - Next"-lus geprobeerd, maar het lukt mij niet.
Wie weet het?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C5:Z370")) Is Nothing Then
    If WorksheetFunction.CountIf(Range("C5:Z5"), Target) > 1 Then
    MsgBox "Naam komt reed voor."
    Target.ClearContents
    End If
End If
End Sub

 

[HSV]

Bv.

 If WorksheetFunction.CountIf(cells(target.row, 3).resize(, 24), Target) > 1 Then

of application ipv worksheetfunction.

 

[wieter]

Knap Harry!!!
Logisch toch, als iemand anders het voordoet.
Nu moet ik nog uitvissen hoe ik de kolommen "Type verlof" moet uitsluiten in de RESIZE.

 

[HSV]

Niet nodig.
Het kan nooit geen Jan, Piet of Keesie worden in die cellen.

 

[wieter]

Klopt Harry, maar ik moet wel 2 of meer keer hetzelfde type verlof kunnen ingeven.
Ik was bezig met: If Target.Value <> "WV" enz...

 

[HSV]

Ach zo.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C5:Z370")) Is Nothing Then
[COLOR=#ff0000]    Set c = Range("R1,T1,V1,X1,Z1")[/COLOR]
[COLOR=#ff0000]    If Intersect(Target, c.EntireColumn) Is Nothing Then[/COLOR]
      If Application.CountIf(Cells(Target.Row, 3).Resize(, 24), Target) > 1 Then
        MsgBox "Naam komt reed voor."
        Target.ClearContents
      End If
[COLOR=#ff0000]  End If[/COLOR]
End If
End Sub

 

[wieter]

Dat is het helemaal Harry.
Heel wat minder omslachtig dan wat ik aan het proberen was.
Super bedankt Harry!!

 

[HSV]

Graag gedaan @wieter.