Aynı sütunda aynı veri girişi olmasın

[u.L.a.s]

Merhabalar

aşağıda bir kod düzeneği var. bu kod düzeneğinde aynı sütunda benzer bir veri girdiğim zaman uyarı mesajı veren bir kod.

Ama bu uyarı verse dahi bu girilen veriyi yinede hücreye yazmış bulunuyor. bu uyarıyı yine versin ama benzer bir veri girişi yapmışsam o anki veri girişi yaptığım hücreye o veriyi girmesin istiyorum. ama benzer veri yoksa veri girişi zaten olsun. bilgi ve yardımlarınızı rica ederim

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("H:H"), Target) > 1 Then 
MsgBox "Benzer Veri Girişi Yapıldı. Kontrol Ederek Düzeltiniz", vbCritical, "Uyarı"
End If
End Sub

 

[hamitcan]

Böyle deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("a:a"), Target) > 1 Then
MsgBox "Benzer Veri Girişi Yapıldı. Kontrol Ederek Düzeltiniz", vbCritical, "Uyarı"
Target = ""
End If
End Sub

 

[u.L.a.s]

Çok teşekkürler üstadım emeğine bilgine sağlık

 

[betsfat]

a2 ve b2 (a3-b3,a4-b4 sıralı devam eden) hücrelerinin birleşimi alt satırlarda tekrarlıyor ise bu hatayı versin istiyorum.(örnek: a2 =ahmet , b2= bulut )

 

[betsfat]

 

[YUSUF44]

Ekli dosyayı görüntüle 214266

Aşağıdaki kdoları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) kopyalayıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
i = Target.Row
If WorksheetFunction.CountIfs([A:A], Cells(i, "A"), [B:B], Cells(i, "B")) > 1 Then
    MsgBox "Bu ikili daha önce kaydedilmiş!", vbCritical
End If
End Sub

 

[betsfat]

çok teşekkürler kod çalışıyor,sesli hatalı giriş uyarısı verilebilir mi Yusuf Bey?