• DİKKAT

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

Arama

Katılım
8 Temmuz 2006
Mesajlar
144
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 Tr
merhaba arkadaşlar ekteki dosyada açılan formda arama yaptığım zaman mesela mehmet ali'yi aradığım zaman mehmet ali isimlerini listboxta listeliyor.ben mehmet yazdığım zaman da mehmet ali,mehmet akif gibi isimlerin listelenmesini istiyorum.teşekkürler
 
Son düzenleme:
Selamlar,

Dosyanızın kod bölümündeki şifreyi kaldırırsanız yardımcı olmaya çalışırız.
 
dosyayı değiştirdim arkadaşlar özürdilerim
yardımlarınızı bekliyorum.
 
Kod:
  If UCase(Replace(Replace(Cells(i, 2), "i", "İ"), "ı", "I")) = _
UCase(Replace(Replace(TextBox18.Text, "ı", "I"), "i", "İ")) Then


satırını
Kod:
  If WorksheetFunction.Proper(Cells(i, 2)) Like _
  WorksheetFunction.Proper(TextBox18.Text) Then

olarak değiştir

meh* gibi joker karekterlerini kullanarak sorgulayabilirsiniz.
 
Geri
Üst