Mükerrer Veri Girişine UYARI Verdirme

[Yesilyurtlu]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [N65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("N3:N" & a), Cells(a, "N")) > 1 Then Rows(a).ClearContents
Next
End Sub

Yukarıda ki Makro Koduna
MsgBox "Mükerrer Kayıt Girişi Yaptınız" uyarısını nasıl verdirebilirim?

 

[İhsan Tank]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [N65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("N3:N" & a), Cells(a, "N")) > 1 Then Rows(a).ClearContents
Next
End Sub

Yukarıda ki Makro Koduna
MsgBox "Mükerrer Kayıt Girişi Yaptınız" uyarısını nasıl verdirebilirim?

buna eklemek isterseniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [N65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("N3:N" & a), Cells(a, "N")) > 1 Then Rows(a).ClearContents
Next
MsgBox "Mükerrer Kayıt Girişi Yaptınız" 
End Sub

ile
dilerseniz bir başka kod ise

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("N1:N65536")) Is Nothing Or Target = "" Then Exit Sub
For x = 1 To Sheets.Count
Say = WorksheetFunction.CountIf(Sheets(x).Range("N1:N65536"), Target)
knt = knt + Say
Next
If knt > 1 Then
MsgBox "Bu veri daha önce girilmiş.", vbCritical, "UYARI"
Target = ""
End If
End Sub

çalışma sayfanızın Thisworkbook sayfasına yapıştırınız.
son koda örnek dosya ekledim deneyiniz.

 

[Yesilyurtlu]

cılgın86'lı tEŞEKKÜR eDERİM
ALLAH Razı Olsun

 

[İhsan Tank]

rica ederim iyi çalışmalar