Lıstbox'ta mükerrer sonuç sorunu

[Enginn]

Merhaba
Listbox taki ürünlerde texkbox ile arama yaptığımda mükerrer sonuç çıkıyor.
Şöyleki;
B sütununda: A.silan astar 2.5 Lt
C sütununda; Alpina Astar Grubu

B sütununda ürünlerin adları, C sütununda ise daha kolay bulunması için ürünlerin grup olarak ismi var. (Yani Alpina astar ın bütün ambalajları için C sütununda Alpina Astar Grubu yazıyor)

A*AST* diye ararttırdığımda hem B sütununda hem de C sütununda bu kelimeleri buluyor ve aynı ürünü iki kere getiriyor.
Arama sonucunda çıkacak olan mükerrer sonuçları engelleyip sadece bir tanesini getirecek bir kod var mı?

Ekte size örnek dosyayı gönderiyorum. Toplam 4 adet ürün var listede, fakat arama yaptığınızda hem C de hem B sütununda bulup bir anda 8 adete çıkıyor.

 

[suleyman242]

Merhaba
Listbox taki ürünlerde texkbox ile arama yaptığımda mükerrer sonuç çıkıyor.
Şöyleki;
B sütununda: A.silan astar 2.5 Lt
C sütununda; Alpina Astar Grubu

B sütununda ürünlerin adları, C sütununda ise daha kolay bulunması için ürünlerin grup olarak ismi var. (Yani Alpina astar ın bütün ambalajları için C sütununda Alpina Astar Grubu yazıyor)

A*AST* diye ararttırdığımda hem B sütununda hem de C sütununda bu kelimeleri buluyor ve aynı ürünü iki kere getiriyor.
Arama sonucunda çıkacak olan mükerrer sonuçları engelleyip sadece bir tanesini getirecek bir kod var mı?

Ekte size örnek dosyayı gönderiyorum. Toplam 4 adet ürün var listede, fakat arama yaptığınızda hem C de hem B sütununda bulup bir anda 8 adete çıkıyor.

Form kilitli müdahale şansımız bulunmuyor
ama size söylediğimi yaparsanız çözüme ulaşırsınız
kullandığınız arama yöntemini bilmiyorum ama arama sınırlarınızı Hangi sutunda yapıyorsanız kodda arama sınırlarını o şekilde belirtiniz
yani Range içerisine alınız

.Range("[COLOR="Red"][B]B[/B][/COLOR]2:[B]B[/B]65536").FindNext(k)

veya c de aramak istiyorsanız

.Range("[B][COLOR="Red"]C[/COLOR][/B]2:[COLOR="Red"][B]C[/B][/COLOR]65536").FindNext(k)

 

[halit3]

Merhaba
Listbox taki ürünlerde texkbox ile arama yaptığımda mükerrer sonuç çıkıyor.
Şöyleki;
B sütununda: A.silan astar 2.5 Lt
C sütununda; Alpina Astar Grubu

B sütununda ürünlerin adları, C sütununda ise daha kolay bulunması için ürünlerin grup olarak ismi var. (Yani Alpina astar ın bütün ambalajları için C sütununda Alpina Astar Grubu yazıyor)

A*AST* diye ararttırdığımda hem B sütununda hem de C sütununda bu kelimeleri buluyor ve aynı ürünü iki kere getiriyor.
Arama sonucunda çıkacak olan mükerrer sonuçları engelleyip sadece bir tanesini getirecek bir kod var mı?

Ekte size örnek dosyayı gönderiyorum. Toplam 4 adet ürün var listede, fakat arama yaptığınızda hem C de hem B sütununda bulup bir anda 8 adete çıkıyor.

Alternatif kod:

Private Sub TextBox2_Change()
Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
[COLOR=red]Dim sut1, sut2
[/COLOR]ReDim myarr(1 To 3, 1 To 1)
With Worksheets("STOK")
    Me.ListBox1.RowSource = vbNullString
    'Show all records of Database on Sheet1
    If .FilterMode Then .ShowAllData
    Set k = .Range("B2:C65536").Find(TextBox2.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
        Do
           [COLOR=red]sut1 = k.Row
           If sut1 <> sut2 Then[/COLOR]
              a = a + 1
              ReDim Preserve myarr(1 To 3, 1 To a)
              For j = 1 To 3
                myarr(j, a) = .Cells(k.Row, j).Value
              Next j
          [COLOR=red] End If
           sut2 = k.Row[/COLOR]
            
          Set k = .Range("B2:C65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ListBox1.Column = myarr
    End If
End With
End Sub

 

[Enginn]

Süleyman bey;
Formda şifre yok, direk boş geçebilirsiniz. Sizin verdiğiniz kod ile sadece bir sütunda arama yapılabiliyor.

Halit bey;
Verdiğiniz kod işimi görüyor, mükerrerleri kaldırdı aradan.

Çok teşekkür ediyorum yardımlarınız için.

 

[suleyman242]

Süleyman bey;
Formda şifre yok, direk boş geçebilirsiniz. Sizin verdiğiniz kod ile sadece bir sütunda arama yapılabiliyor.

Şifre ekranı açılınca doğrusu bakmadım, haklısın bende zaten tek sutunda aramayı önerdim neyse sorun çözülmüş kolay gelsin.