• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru LISTBOX İÇİNDE VERİ SÜZME

  • Konbuyu başlatan Konbuyu başlatan emsey
  • Başlangıç tarihi Başlangıç tarihi
Katılım
18 Mart 2007
Mesajlar
171
Excel Vers. ve Dili
OFFICE 2016
Saygıdeğer üstadlarım.

Ekteki dosyamda userform içine girdiğinizde "arananı yazınız" textbox'u var. Bu textbox içine örneğin ELMA yazıp yanında "BUL" butonuna bastığınızda. Stoklar excel sayfasındaki stoklar içinde ELMA ile başlayan stokları Listbox içinde alfabetik olarak sıralıyor. Benim istediğim textbox'a yazdığım ELMA ile başlayanları değilde içeriğinde ELMA geçenleri sıralamasını istiyorum.

Örneğin stoklar içinde ELMA YEŞİL veya ELMA KIRMIZI ŞEKLİNDE ürünler varsa ve ben elmaları listelemek için textbox içine elma yazmam yeterli olur. Çünkü stok isminin ilk kelimesi elma olduğunu için okey fakat KIRMIZI ELMA veya YEŞİL ELMA diye açılan stokları listbox içine getirebilmem için kırmızı veya yeşil olduğunu bilmem ve textbox o şekilde yazmam gerekiyor. Ama ELMA ile başlayanları değil ELMA içerenleri Listbox içinde listeyebilirsem işime çok yarayacak. Bu konuda textbox'un change'inde bulunan kod ile ilgili yardımcı olursanız çok mutlu olurum. Değerli yardımlarınız ve ilginiz için şimdiden teşekkür eder, iyi çalışmalar dilerim.
 

Ekli dosyalar

If Left(LCase(myrange), Len(ara)) = LCase(ara) Then ListBox1.AddItem (myrange)

Kodlarınız içinde yer alan yukarıdaki satırı aşağıdaki satırla değiştirip deneyiniz.

If InStr(1, myrange, ara, vbTextCompare) > 0 Then ListBox1.AddItem (myrange)
 
Çok teşekkür ederim üstad çok makbule geçti. Emeğine sağlık

If Left(LCase(myrange), Len(ara)) = LCase(ara) Then ListBox1.AddItem (myrange)

Kodlarınız içinde yer alan yukarıdaki satırı aşağıdaki satırla değiştirip deneyiniz.

If InStr(1, myrange, ara, vbTextCompare) > 0 Then ListBox1.AddItem (myrange)
 
Geri
Üst