stoktaki ürünlerin bir kaç harfini TextBoxa yazarak listeleme

[sdegirmenci]

Değerli Hocalarım Merhaba;
Ekli dosyamda Form üzerinde bulunan TextBox'a "Stok" sayfası "F" sütununda bulunan ürün adlarının içinde bulunan birkaç harfi yazarak enter dediğimizde, yazılan kelimelerin içinde geçtiği satırları sıralamakta, Sıkıntı şurada , Örnek "kanad" yazdığımızda aynı satırı bir kaç defa yazmakta. veya "elas" yazdığımızda aynı ürün numarasını defalarca sıralamakta, oysa aynı ürün no sunu ve karşılığını bir defa yazması gerekir. Yani yukarıda yalnızca bir defa "kanadyen--sembol--koldan destekli--s.no."yazmazsı gerekir. Bu konuda mevcut koda nasıl müdahale edilebilir, bu konuda yardımcı oplabilirseniz çok sevinirim, Saygılarımla.

 

[suleyman242]

Değerli Hocalarım Merhaba;
Ekli dosyamda Form üzerinde bulunan TextBox'a "Stok" sayfası "F" sütununda bulunan ürün adlarının içinde bulunan birkaç harfi yazarak enter dediğimizde, yazılan kelimelerin içinde geçtiği satırları sıralamakta, Sıkıntı şurada , Örnek "kanad" yazdığımızda aynı satırı bir kaç defa yazmakta. veya "elas" yazdığımızda aynı ürün numarasını defalarca sıralamakta, oysa aynı ürün no sunu ve karşılığını bir defa yazması gerekir. Yani yukarıda yalnızca bir defa "kanadyen--sembol--koldan destekli--s.no."yazmazsı gerekir. Bu konuda mevcut koda nasıl müdahale edilebilir, bu konuda yardımcı oplabilirseniz çok sevinirim, Saygılarımla.

Set aranan = st.[COLOR="Red"][B]Cells[/B][/COLOR].FindNext(aranan)

olan kodu bu şekilde

Set aranan = st.[COLOR="Red"][B]Range("F:F")[/B][/COLOR].FindNext(aranan)

değiştir.

 

[sdegirmenci]

Merhaba;
Sayın Süleyman242 ilginize çok teşekkür ederim.Kod değişikliğini uyguladım, İstediğim bir ölçüde oldu, ancak içinde "kanadyen" geçen satırları bulmak için "kanad" yazıp tıkladığımızda aynı ürün numarasını beş defa yazdığını görüyoruz. Bunun çözümü yokmudur acaba,

 

[Ziynettin]

Merhaba,
Yeni form ekelendi denermisiniz.

 

[sdegirmenci]

Sayın tasmed ilginize çok teşekkür ederim, kodu proğramıma uyguladım, tam istediğim gibi oldu, tekrar çok teşekkür ediyorum, işleriniz kolay gelsin.Saygılarımla