Açılır kutuda mükerrer olanları göstermemesi mümkünmü?

[sdegirmenci]

Veri doğrulamada mükerrer olanları göstermemesi mümkünmü?

Değerli Hocalarım Merhaba;
Veri doğrulama ile veri aldığım listede mükerer olan kayıtlar mevcut,Hücrede Açılır kutu kullandığımızda mükerrer olanların gözükmemesi mümkünmü acaba.Yardımlarınız için şimdiden teşekkür ederim.

 

[muygun]

Slm.
Not:Konunun yanlışlıkla kilitlenmiş olabileceği düşüncesiyle kilidini açtım.
Sorunuza gelince;
Eğer mükerrer olanları bir şekilde süzerseniz süzülmüş olanları kullanabilirsiniz.
İyi çalışmalar.

 

[sdegirmenci]

Sayın M.Uygun;
İlginize çok teşekkür ederim.Kaynak sütunu süzme yapmadan doğrudan mükerer olanı göstermemesinin başka yolu olabilirmi acaba? Tıpkı Boşlukları yok saydığı gibi, acaba mükereri yok sayarmı? Sorum bu yönde idi. Tekrar ilginize teşekkür eder hayırlı günler dilerim.

 

[parsley2]

Private Sub UserForm_Activate()

For X = 2 To Sayfa13.Cells(65536, 7).End(xlUp).Row
If WorksheetFunction.CountIf(Sayfa13.Range("g2:g" & X), Sayfa13.Cells(X, 7)) = 1 Then
combobox.AddItem Sayfa13.Cells(X, 7).Value
End If
Next
yukarıdaki döngü de aradığını bulacaksın

 

[xcoll]

kusura bakmayın başlık açıp kirletmek ıstedım benım sorunda bunun gıbı bişey

ben de bir sutunde dıyelım bi satıra elmas yazdım dıyelıl bunu basdka bi satıra yazarsam benı uyarsın

 

[ersoyalan]

Merhaba,

Ekli dosyayı inceleyin.

E.ALAN

 

[1Al2Ver]

kusura bakmayın başlık açıp kirletmek ıstedım benım sorunda bunun gıbı bişey

ben de bir sutunde dıyelım bi satıra elmas yazdım dıyelıl bunu basdka bi satıra yazarsam benı uyarsın

Aşağıdaki kodu denermisiniz, Sayın Korhan Ayhan'dan yararlandığım bir kod,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Not IsEmpty(Target) Then
If WorksheetFunction.CountIf([A:A], Target) > 1 Then
ONAY = MsgBox("Mükerrer kayıt !" & vbCrLf & "Silmek istiyor musunuz ?", vbYesNo + vbDefaultButton2 + vbCritical, "DİKKAT !")
If ONAY = vbYes Then
Target.Clear
Target.Select
Else
Exit Sub
End If
End If
End If
End Sub