Mükerrer Kayıt

[baba]

Merhaba;
A Sutununda Bulunan TC Numaraların Başka Kayıt edilip Edilmediğine bakmak istiyorum.
Örneğin: Br kişinin TC Numarası Başka Satırda Yazılı ise Beni Form Üzerinden Uyarı vermesini istiyorum.
Yardımcı Olacak Arakadaşlar Şimdiden Tşkler Ederim.

 

[Orion1]

Örnek dosya ekleyiniz.

 

[baba]

Ekte Göndermiş Olduğum Çalışmada;
1- TC No Olan Yerden Birde Fazla Yazılan Varsa,
2- Sicil No Olan Yerden Birde Fazla Yazılan Varsa,
3- Emekli No Olan Yerden Birde Fazla Yazılan Varsa,
Bunları Uyarı vererek Hangilerinde Aynı Yada Eksik Olanları Belirlenmesinde ve Yardımcı Olacak Uyarı verilmesi.

 

[Orion1]

Bu 3 şartın olması durumunumu dikkate alalım,yoksa her biri için ayrı kodlamamı yapalım?

 

[baba]

Sizce Hangisi Uygunsa Ona Göre Yapalım. Kayıt Yaparken Bir Alt Satıra Geçildiğinde Yeni satır gelindiğinde Daha önce ki satırda varsa uyarsın.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long
If Intersect(Target, [A:H]) Is Nothing Then Exit Sub
If Target.Column = 1 Then
    If WorksheetFunction.CountIf([A:A], Target.Value) > 1 Then
        MsgBox "Bu TC kimlik no daha önceden kayıt edilmiş!", vbCritical, "U Y A R I"
    End If
ElseIf Target.Column = 7 Then
    If WorksheetFunction.CountIf([G:G], Target.Value) > 1 Then
        MsgBox "Bu sicil no daha önceden kayıt edilmiş!", vbCritical, "U Y A R I"
    End If
ElseIf Target.Column = 8 Then
    If WorksheetFunction.CountIf([H:H], Target.Value) > 1 Then
        MsgBox "Bu emekli sicil no daha önceden kayıt edilmiş!", vbCritical, "U Y A R I"
    End If
End If
End Sub

 

[baba]

Elinize Sağlık Güzel Olmuş.
Yanlız Bir İsteğim daha olacak KAyıtlı olan Varsa Kayıt Yapılmasın.

 

[Orion1]

Elinize Sağlık Güzel Olmuş.
Yanlız Bir İsteğim daha olacak KAyıtlı olan Varsa Kayıt Yapılmasın.

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long
If Intersect(Target, [A:H]) Is Nothing Then Exit Sub
If Target.Column = 1 Then
    If WorksheetFunction.CountIf([A:A], Target.Value) > 1 Then
        MsgBox "Bu TC kimlik no daha önceden kayıt edilmiş!", vbCritical, "U Y A R I"
        Target.Value = Empty
    End If
ElseIf Target.Column = 7 Then
    If WorksheetFunction.CountIf([G:G], Target.Value) > 1 Then
        MsgBox "Bu sicil no daha önceden kayıt edilmiş!", vbCritical, "U Y A R I"
        Target.Value = Empty
    End If
ElseIf Target.Column = 8 Then
    If WorksheetFunction.CountIf([H:H], Target.Value) > 1 Then
        MsgBox "Bu emekli sicil no daha önceden kayıt edilmiş!", vbCritical, "U Y A R I"
        Target.Value = Empty
    End If
End If
End Sub

 

[baba]

Teşekkürler Ellerinize Sağlık Sağollun.

 

[Orion1]

Teşekkürler Ellerinize Sağlık Sağollun.

Rica ederim.
İyi çalışmalar.