Sütundaki veriyle TextBox1 verisi mükerrer giriş

[Kavinsky]

Merhabalar;
TextBox1 e girdiğim veri daha önce LOGOK sayfasının D sütununda herhangi bir hücreye girildiyse msgbox ile uyarı versin ve makroyu çalıştırmasın.
Userform ile çalıştırdığım kod aşağıdadır bu yukarıda yazdığım özelliği bu koda entegre etmek istiyorum mümkün müdür ?
Özetle mükerrer veri girişini engellemek istiyorum.

Private Sub CommandButton1_Click()

If TextBox1.Value = "" Then
MsgBox "BARKODU OKUTUNUZ"
TextBox1.SetFocus
Exit Sub
End If
TextBox1.SetFocus
Sheets("KONTROL").Range("D7") = TextBox1.Text
Me.TextBox1 = Empty

UserForm3.Hide

End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    If TextBox1.Value = "" Then
        MsgBox "BARKODU OKUTUNUZ"
        TextBox1.SetFocus
        Exit Sub
    End If
      
    If WorksheetFunction.CountIf(Sheets("LOGOK").Range("D:D"), TextBox1) > 0 Then
        MsgBox "Mükerrer kayıt yapmaya çalışıyorsunuz!", vbCritical
        TextBox1 = Empty
        TextBox1.SetFocus
        Exit Sub
    End If
  
    TextBox1.SetFocus
    Sheets("KONTROL").Range("D7") = TextBox1.Text
    TextBox1 = Empty
    UserForm3.Hide
End Sub

 

[Kavinsky]

Sayın hocam her şekilde uyarı veriyor. İster mükerrer olsun ister olmasın, msgbox açılıyor.

 

[Korhan Ayhan]

Kodda küçük bir revize yaptım. Tekrar deneyiniz.

 

[Kavinsky]

Sayın hocam bu da olmadı. Karakter sayısı değişince oluyor , ama mevcut karakter sayısı sabit herhangi bir değeri değiştirince hepsine mükerrer uyarısı veriyor. Karakter sayısı hep sabit kalacak , mevcut değer değişecek sonu 400 ise 401 olacak aşağıdaki örneğe göre.

Yazdığım kod bu , bu kod ile deneme yapıyorum.

9000000028005517062321470400

 

[Korhan Ayhan]

Bu kodlar ilgili sütunda sayısal formatta mı tutuluyor. Yoksa METİN biçiminde mi?

 

[Kavinsky]

Metin olarak tutuyorum karakter sayısı fazla olduğu için.

 

[Korhan Ayhan]

Böyle deneyiniz.

Private Sub CommandButton1_Click()
    Dim Bul As Range
    
    If TextBox1.Value = "" Then
        MsgBox "BARKODU OKUTUNUZ"
        TextBox1.SetFocus
        Exit Sub
    End If
       
    Set Bul = Sheets("LOGOK").Range("D:D").Find(TextBox1, , , xlWhole)
    
    If Not Bul Is Nothing Then
        MsgBox "Mükerrer kayıt yapmaya çalışıyorsunuz!", vbCritical
        TextBox1 = Empty
        TextBox1.SetFocus
        Exit Sub
    End If
   
    TextBox1.SetFocus
    Sheets("KONTROL").Range("D7") = TextBox1.Text
    TextBox1 = Empty
    UserForm3.Hide
End Sub

 

[Kavinsky]

Hocam oldu çok teşekkür ediyorum ilginiz için , var olun.

 

[yıldırım80]

mrblar doğru yere mi yazıyorum bilmiyorum ama.sorunum şu. bir arama çalışmam var. tc numarasını yazıp aday numarası ve ayını getiriyor. sorunum şu arama yaptığımda aynı değerde olan kayıtların sadece 1 tanesini buluyor. yani diyelim 22222222222 tc nolu bir kişi hem ocak ayında 3 aday numarası ile kayıt edilmiş hemde şubat ayında 121 aday numarası ile kayıt yapılmış. userform1 i açtığımda tc no yazacağım. userform2 de aynı isimli kaç kişi varsa alt alta sıralasın. mesela 22222222222 tc nosu hem 3 sırada hem 121. sırada hem 200. sırada hemde 350. sırada var. userform1e 22222222222 yazıp aradığımda userform2 açıldığında alt alta 3-121-200-350 ve karşısındaki ayı yazsın.