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.
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]
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?
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.