Soru Mükerrer engelleme

[ümit bektas]

Merhaba sayfa "DATA" içinde Texbox1, Texbox2, Texbox3
D satırında Texbox4 E satırında mükerrer arama yapmasını istiyorum. Bunun kolay yöntemi varmıdır.

 

[Korhan Ayhan]

ÇOKEĞERSAY fonksiyonu ile sonuca gidebilirsiniz.

Deneyiniz.

 

[ümit bektas]

ÇOKEĞERSAY fonksiyonu ile sonuca gidebilirsiniz.

Deneyiniz.

korhan bey textbox1, textbox2,textbox3 hepsinden veri girişini d satırına giriyorum. D satırındaki tüm mükerrer kodu tüm textboxlarda engellemesi gerekiyor

 

[Korhan Ayhan]

Örnek dosyanız olmayınca yazdığınız ifadeye göre yorumlayıp örnek dosya paylaştım.

Örnek dosya paylaşarak açıklarsanız daha net cevaplar verebilirim.

 

[ümit bektas]

D satırında TextBox1, TextBox2,TextBox3 mükerrer girişine yapamayacak, E satırında TextBox6,TextBox7,TextBox8 mükerrer girişine yapamayacak

 

[Korhan Ayhan]

Aşağıdaki kodları kendi KAYDET butonundaki kod bloğunda uygun bölüme yazarak deneyiniz.

    If WorksheetFunction.CountIf(Sheets("DATA").Range("D:D"), TextBox1) > 0 Or _
        WorksheetFunction.CountIf(Sheets("DATA").Range("D:D"), TextBox2) > 0 Or _
        WorksheetFunction.CountIf(Sheets("DATA").Range("D:D"), TextBox3) > 0 Then
        MsgBox "Mükerrer veri girişi yapmaya çalışıyorsunuz!", vbCritical
        Exit Sub
    End If
    
    If WorksheetFunction.CountIf(Sheets("DATA").Range("E:E"), TextBox6) > 0 Or _
        WorksheetFunction.CountIf(Sheets("DATA").Range("E:E"), TextBox8) > 0 Or _
        WorksheetFunction.CountIf(Sheets("DATA").Range("E:E"), TextBox11) > 0 Then
        MsgBox "Mükerrer veri girişi yapmaya çalışıyorsunuz!", vbCritical
        Exit Sub
    End If