tetxboxa yazılan kelimenin benzerlerini bulma

[bulentcigali]

yazdığım harflere göre ekte sunduğum dosya içerisinde bulunan malzeme adlarından nerede olursa olsun bulmasını istiyorum.
örnek verecek olursam ;
"elektrik lambası " için textboxa "elek " yazdığımda elek ile başlayan tüm malzemelri getiriyor.
benim yapmak istediğim "lamb" yazdığımda dosyada malzeme adı içerisinde lamb olan tüm malzemelri getirtmek yani aradaki harfleri kontrol edemedim.
ekte bir örnek uygulama var
yardımlarınız için teşekkür eder tüm üye arkadaşların ramazan bayramını kutlarım.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub textbox1_Change()
On Error Resume Next
Dim MyRange As Range
Dim SonSat  As Long
Dim c       As Range
Dim Adres   As String
SonSat = Sheets("kod").[A65536].End(3).Row
Set MyRange = Sheets("kod").Range("A1:A" & SonSat)
ListBox1.Clear
With MyRange
    Set c = .Find(TextBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        Adres = c.Address
        Do
            ListBox1.AddItem MyRange(c.Row, 1)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adres
    End If
End With
End Sub

 

[bulentcigali]

teşekkür ederim necdet bey elinize sağlık. ramazan bayramınız kutlu olsun

 

[Necdet]

teşekkür ederim necdet bey elinize sağlık. ramazan bayramınız kutlu olsun

Bende sizin Ramazan Bayramınızı kutlarım, güle güle kullanınız.