mükerrer olanları listeye aktarma

[ahm11]

textbox a girilen kodu a sutununda arayıp, bulunan kayıtları listbox ta gösteren bir koda ihtiyacım var.

 

[Ayhan Ercan]

Merhaba

İstediğiniz böyle bişeymi???
Ek dosyayı inceleyiniz...

Private Sub TextBox1_Change()
ListBox1.Clear
Dim hcr As Range
Set hcr = Sayfa1.Range("A2:A" & [A65536].End(3).Row).Find(TextBox1, lookat:=xlWhole)
If Not hcr Is Nothing Then
    adres = hcr.Address
    Do
        x = x + 1
        ListBox1.AddItem hcr
        For i = 1 To 2
                ListBox1.List(x - 1, i) = hcr.Offset(0, i)
        Next
        Set hcr = Sayfa1.Range("A2:A" & [A65536].End(3).Row).FindNext(hcr)
    Loop While Not hcr Is Nothing And hcr.Address <> adres
End If
End Sub

 

[ahm11]

sayın ayhan ercan teşekkür ederim.

"lookat:=xlWhole" ne anlama geliyor acaba

 

[Ayhan Ercan]

sayın ayhan ercan teşekkür ederim.

"lookat:=xlWhole" ne anlama geliyor acaba

Bulunan verinin birebir aynı olması demek..


Mesela aranan veri "mehmet" ise sadece "mehmet" olarak bulunanlar, "mehmet ali" , "muhammet mehmet" gibi ifadeler bulunan değer olarak tutulmaz anlamında.
Umarım anlatabilmişimdir...