Mükerrer yazılan numaraları engelleme - uyarı verme

[selcukcelebioglu]

Merhaba kolay gelsin ben excel de portföylerimizin olduğu bir takip çizelgesi yaptım ve buraya günlük portföy giriliyor. Tabi bazen aynı portföyler girildiği bunu anlayabildiğimiz tek nokta telefon numaraları. Sizden ricam aynı telefon numarasını yazınca uyarı vermesi. Yardımcı olmanız dileğiyle iyi günler

 

[Ali]

Forumun arama menüsünde mükerrer yazarak arama yapınız. Aynı soru için defalarca başlık açmayınız.

 

[tahsinanarat]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B2:B500]) Is Nothing Then Exit Sub
SAY = WorksheetFunction.CountIf([B2:B65536], Target)
If SAY > 1 Then
For Each ALAN In Range("B2:B" & [B65536].End(3).Row)
If ALAN = Target Then
If ADRES = "" Then
ADRES = ALAN.Address(False, False)
Else: ADRES = ADRES & " - " & ALAN.Address(False, False)
End If: End If: Next
ONAY = MsgBox("Bu Kayıt Daha Önceden Aşağıdaki Hücrelerde Girilmiştir !" & Chr(10) & Chr(10) & ADRES & Chr(10) & Chr(10) & "İşleme Devam Etmek İstiyor musunuz?", vbYesNo + vbCritical, "DİKKAT !")
If ONAY = vbNo Then
Target = ""
Target.Select
Exit Sub: End If
Target.Offset(1, 0).Select
End If: End Sub