Soru Mükerrer Kontrol

[sirkülasyon]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If TCKimlikOnYazimKontrol(TextBox1.Text) = False Then
Me.TextBox1 = ""
'MsgBox "Hatalı T.C Kimlik No Girdiniz. Lütfen Kontrol Ederek Tekrar Deneyiniz !...", vbCritical
Cancel = True
Me.TextBox1.SetFocus
End If
If WorksheetFunction.CountIf(Sheets("KAYIT").Range("C2:C"), TextBox1.Value) > 0 Then
Dim k As Range
If TextBox1.Value = "" Then Exit Sub
Set k = Range("C2:C65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
k.Select
k.Value = TextBox1.Value
If WorksheetFunction.CountIf(Sheets("Kayıt").Range("C2:C"), TextBox1.Value) > 0 Then
Me.TextBox1.SetFocus
Cancel = True
Me.TextBox1 = Empty
Dim cevap As Integer
cevap = MsgBox(" MÜKERRER KAYIT Yapmaktasınız. Lütfen Kontrol  Ediniz!...", vbNo + vbQuestion, "ONAY")
If cevap = vbNo Then
MsgBox "İşleminiz iptal edilmiştir."
Exit Sub
End If
End If
End If
End If
End Sub

Yukarıda ki kod KAYIT sayfasına mükerrer girişi önlüyor.


İsteğim : Combobox1 değerine göre diğer sayfada da mükerrer kontrol yapabilsin.
Örnek : Combobox1 "İLK" ise KAYIT sayfasında, "İLK" dışında bir değer ise hem "Yeni Gelen" hem de "KAYIT" sayfasında mükerrer kontrol yapabilsin.
Yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Deneyebilirsiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
    If TCKimlikOnYazimKontrol(TextBox1.Text) = False Then
        Me.TextBox1 = ""
        'MsgBox "Hatalı T.C Kimlik No Girdiniz. Lütfen Kontrol Ederek Tekrar Deneyiniz !...", vbCritical
        Cancel = True
        Me.TextBox1.SetFocus
    End If
    If WorksheetFunction.CountIf(Sheets("KAYIT").Range("C2:C"), TextBox1.Value) > 0 Then
        Dim k As Range
        If TextBox1.Value = "" Then Exit Sub
            Set k = Range("C2:C65536").Find(TextBox1.Value, , xlValues, xlWhole)
            If Not k Is Nothing Then
                k.Select
                k.Value = TextBox1.Value

                ' Bu kısım ilave edildi..............
                ' ...
                If ComboBox1.Value = "İLK" Then
                    Bak = WorksheetFunction.CountIf(Sheets("Kayıt").Range("C2:C"), TextBox1.Value)
                Else
                    Bak = WorksheetFunction.CountIf(Sheets("Kayıt").Range("C2:C"), TextBox1.Value)
                    Bak = Bak + WorksheetFunction.CountIf(Sheets("Yeni Gelen").Range("C2:C"), TextBox1.Value)
                End If
                ' ............................................................................
                If Bak > 0 Then ' Bak değişkeni ilave edildi
                    Me.TextBox1.SetFocus
                    Cancel = True
                    Me.TextBox1 = Empty
                    Dim cevap As Integer
                    cevap = MsgBox(" MÜKERRER KAYIT Yapmaktasınız. Lütfen Kontrol  Ediniz!...", vbNo + vbQuestion, "ONAY")
                    If cevap = vbNo Then
                    MsgBox "İşleminiz iptal edilmiştir."
                    Exit Sub
                End If
            End If
        End If
    End If
End Sub

 

[sirkülasyon]

Sayın NextLevel
Kod sayfada var olan T.C kimlik numarasını mükerrer olarak görmedi.

 

[ÖmerFaruk]

Eski kodlar Mükerrer olarak görüyor ancak yeni hali görmüyor mu?
Ben kodlarınızı değiştirmedim. Sadece ComboBox değerine göre Tek ya da İki sayfada CountIf çalıştırdım.
Formatlarınıza ya da CountIf fonksiyonunun referans aldığı adreslere bakmalısınız.

 

[sirkülasyon]

CountIf aralığında imiş hatam.
Teşekkür ederim. Hakkınızı helal edin