Soru UserForm Listboxtaki Verileri Yineleneleri Kaldır yapmak

[bulentkars]

Arkadaşlar Merhaba,

Ekteki Tabloda Örnek ile anlattım,
"D2" Hücresine tıkladığımda UserForm açılıyor, ürün ismi yazdığımda Data sayfasından isimleri okuyor,
fakat bir üründen birden fazla ürün olabiliyor userform listboxta sadece 1 adet göremk istiyorum, Yardmcı olabilirseniz sevinirim. Şİmdiden Teşkkürler

 

[Muzaffer Ali]

Dosyanızda Vba koruması var

 

[Muzaffer Ali]

Form açıldığında Listboxa alacağınız verileri yeni ekleyeceğiniz bir sayfaya kopyalayıp benzerleri kaldırıp sonra listboxa aldırabilirsiniz.

 

[bulentkars]

Koruma 24062003

 

[Muzaffer Ali]

24062003 bu yanlış

 

[bulentkars]

Muzaffer Ali Bey,
Dediğiniz şekilde yaptım oldu.. ilginiz için çok teşekkür ederim..
"Form açıldığında Listboxa alacağınız verileri yeni ekleyeceğiniz bir sayfaya kopyalayıp benzerleri kaldırıp sonra listboxa aldırabilirsiniz."

 

[dEdE]

Merhaba,
Yeni bir sayfa eklemeden kodla yapmak isterseniz, mevcut kodlarınıza aşağıdaki satırını ekleyerek ve

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Range("C2").Value = ListBox1.List(ListBox1.ListIndex, 0)

TextBox1_Change procedur'nü aşağıdaki ile değiştirerek dener misiniz?

Private Sub TextBox1_Change()
If TextBox1.Value = Empty Then Exit Sub
ListBox1.Clear
son = Sheets("Data").Range("D65536").End(3).Row
uztxt = Len(TextBox1.Value)
myArr = Sheets("Data").Range("C2:D" & son)
    Set myList = CreateObject("System.Collections.ArrayList")
    Set myList1 = CreateObject("System.Collections.ArrayList")
 
For i = 1 To UBound(myArr)
    If Not myList.Contains(myArr(i, 2)) Then
        If Mid(myArr(i, 2), 1, uztxt) = UCase(Mid(TextBox1.Value, 1, uztxt)) Then
            myList.Add myArr(i, 2)
            myList1.Add myArr(i, 1)
        End If
    End If
Next i

For k = 0 To myList.Count - 1
    ListBox1.AddItem
    ListBox1.List(k, 0) = myList1(k)
    ListBox1.List(k, 1) = myList(k)
Next k
End Sub

 

[bulentkars]

Sayın dEdE Çok Teşekkür Ederim.