veri aratma

[warezamca]

merhaba arkadaşlar.userform üzerinde textbox3 e yazdığım veriyi commandbuttona2 ye tıkladığımda D5 hücresinde aratıp listbox1 de listelemesini istiyorum fakat şöyle bir sorunum var ben bu aramayı excel sayfasında ctrl+f tuş bileşimindeki arama gibi olmasını istiyorum yani diyelim textboxa 123 yazdım ara dediğim zaman listboxta sadece tam eşleşmeyi değilde 1234 1235 gibi değerlerde listelensin istiyorum bunu nasıl yapabilirim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton2_Click()
Dim k As Range, ilkadr As String, a As Long
ListBox1.Clear
ReDim myarr(1 To 2, 1 To 1)
Set k = Range("D5:D65536").Find(TextBox3.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
    ilkadr = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 2, 1 To a)
        myarr(1, a) = k.Value
        myarr(2, a) = k.Address
        Set k = Range("D5:D65536").FindNext(k)
    Loop While k.Address <> ilkadr And Not k Is Nothing
    ListBox1.Column = myarr
End If
Erase myarr
Set k = Nothing
End Sub

 

[warezamca]

Teşekkür ederim sayın Evren Gizlen.Bir sorum daha olacak peki bu listboxta listelenen değerlerden birini işaretlediğimde, aktif hücrenin işaretlediğim değerin sayfa üzerinde bulunduğu satır olmasını nasıl sağlayabiliriz.Listboxta listelenen hangi değeri işaretlersem aktif hücre o değerin bulunduğu satır olsun.

 

[Orion1]

Teşekkür ederim sayın Evren Gizlen.Bir sorum daha olacak peki bu listboxta listelenen değerlerden birini işaretlediğimde, aktif hücrenin işaretlediğim değerin sayfa üzerinde bulunduğu satır olmasını nasıl sağlayabiliriz.Listboxta listelenen hangi değeri işaretlersem aktif hücre o değerin bulunduğu satır olsun.

Dosyayı düzenledim.
Dosyayı önceki mesajımdan indirebilirsiniz.

 

[warezamca]

Yardımlarınız için çok teşekkür ederim.Sayenizde hazırlamış olduğum formu sizlerle paylaşmak istedim farklı fikirleri olanlar varsa söylerseniz memnun olurum.Son bir ricam daha olacak, forma kapat diye bir commanbutton ekledim fakat tıkladığımda sadece formu kapatıyor, bu düğmeye tıkladığımızda yapılan değişiklikleride kayıt altına alarak hem formu hem çalışma sayfasını kapatmasını da yapabilirsek çok daha güzel olacak.

 

[cebelitarık]

Sayın Evren Gizlen
2. mesajınızdaki ara bul kodu benimde işime çok yarayacak
Ancak kod üzerinde küçük bir değişiklikle hücer içerisindeki yazılı değerin ortasındanda bir değer girildiğinde için de o değerlerin bulunduğu hücrelerin görüntülenmesi mümkünmüdür.
Örneğin 123456789 dizesi içerisinden, bulunması için 345 yazsak içinde 345 geçen bütün hücreleri görüntülesek. Sizin örneğinizde hücre değerinin en başından itibaren değer girmek gerekiyor.
Teşekkürler

 

[akin506]

Veriyi bulduğu satırı listboxa nasıl ekleyebiliriz