Ard arda aynı ismi girince hata verdirme

[yaasinn]

merhaba arkadaşlar...Excel de bir nöbet çizelgesi hazırlıyorum aynı kişiyi bir alt satırda ya da üst satırda yazdığım zaman bana uyarı vermesini istiyorum...mesela a2 ye ali yazdım a1 ya da a3 e de ali yazdığım zaman bu isim bir alt satırda ya da bir üst satırda yazılıdır şeklinde uyarı almak istiyorum bunu nasıl yapabilirim...TEŞEKKÜRLER...

 

[u.L.a.s]

Hangi Shette bu uyarıyı vermesini istiyorsanız o sayfanın kod bölümüne bu kodu ekleyin

örnek dosyada aşağıdaki linktedir
http://s9.dosya.tc/server2/p26f8o/aynidegerdengirinceuyariversin.rar.html

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:A65500")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("A1:A65500"), Target) > 1 Then
MsgBox "Hatalı Giriş Bu Girdiğiniz Değer Var", vbCritical, "Uyarı"
End If
End Sub