Mükerrer Kayıt

[memduh]

Arkadaşlar Listboxtaki mükerre kayıtları teke indirmek istiyorum. saygılar.

 

[veyselemre]

eki incele

 

[memduh]

Sayın Veyselemre yanıtın için teşekkür ederim. Yalnız kodlarda ufak bir sorun var. Sadece verinin bulunduğu sayfa1 de mükerrer leri teke indiriyor. Diğer sayfalarda userformu açtığım zaman mükerrerleri tümüyle gösteriyor. Bayağı denedim fakat yapamadım.

 

[veyselemre]

koddaki sayfa tanımlarını kaldır, böylece aktif sayfada işlem yapacaktır

[vb:1:5861638a74]Private Sub TextBox1_Change()
Dim MyRng As Range, sira
ListBox1.Clear
If TextBox1 <> Empty Then '1111
For Each MyRng In Range("a1:a" & Range("a65536").End(xlUp).Row)
If UCase(MyRng) Like UCase(TextBox1 & "*") Then '2222
sira = MyRng.Row
If sira > 1 Then '3333
If WorksheetFunction.CountIf(Range("a1:a" & sira - 1), MyRng.Value) = 0 Then ListBox1.AddItem MyRng.Value
Else
ListBox1.AddItem MyRng.Value
End If '3333
End If '2222
Next
End If '1111
End Sub[/vb:1:5861638a74]

 

[memduh]

Sayın veyselemre Ancak bugün bakabildim. Yardımlarınız için teşekkür ederim. Fakat bu kodu uyuladığım zaman listbox'a hiç bir veri almıyor.(diğer sayfalarda). Bu benden mi kaynaklanıyor? Siz denediniz mi?

 

[excellium]

veyselemre'nin kodunu kitabınıza uyguladım, bi göz atın
:shock: