bul ve listele

[tamer42]

Texbox içerisine yazılan terimi belirlenen bir sütun içerisinde arayacak ve aranan değerin bulunduğu hücrenin tam değerini Listbox' a yükleyecek bir koda ihtiyacım var,

Ã?rnek: texbox içerisinde "cel" yazdığımızda;

"cel" teriminin bulunduğu;
Aşağıdaki hücrelerin tam değerini,

"A15" Hücresinde........ excel
"A101" Hücresinde........ cell
"A143" Hücresinde........ celsius

Listbox' a yükleyecek.

İyi çalışmalar dilerim.

 

[Haluk]

[vb:1:681b6b9f6b]Private Sub TextBox1_Change()
Dim MyRng As Range
ListBox1.Clear
If Len(TextBox1) > 0 Then
For Each MyRng In ActiveSheet.UsedRange
If LCase(MyRng.Text) Like "*" & TextBox1 & "*" Then ListBox1.AddItem MyRng
Next
End If
End Sub
[/vb:1:681b6b9f6b]

 

[tamer42]

İlginize teşekkürler...

yalnız aşağıda verdiğiniz kodu kodu çalıştıramadım, text box' a seheet içerisinde olan bir değeri girmeme rağman hiçbir tepki vermiyor,

iyi çalışmalar.

 

[Haluk]

Koddaki TextBox, benim hazırladığım dosyada UserForm üzerinde "Kontroller" araç çubuğundan eklenmiştir.

Yani, ActiveX nesnesidir.

 

[tamer42]

Bende aynısını yaptığımı düşünüyorum,

ilgiyi userform' u içeren excel dosyasını foruma ataç etmenizi istesem çok şey istemiş olurmuyum.

 

[Haluk]

Yukarıdaki kodu UserForm modulüne yazdığınızdan emin olun önce... ve nesne isminin de TextBox1 olduğunu kontrol edin.