Ara-Bul çalışmasında bir sorun..

[EKREM1661]

Saygıdeğer arkadaşlar..! İlişikte verilen çalışmada, sondan başa doğru arama yapan bir araç var.. Ancak, arama yaparken aranan veriyi bulabilmesi için, kelime veya cümlenin tamamını yazmak gerekiyor. örneğin iki kelimelik bir ifadeyi bulabilmek için her iki kelimesini de tam yazmak gerekiyor. bir kelimesini veya bir kısmını yazarak arama yapabilecek bir düzenleme yapabilir miyiz..?

 

[mancubus]

tüm ilgili kodlar için aşağıdaki örnek gibi deneyin.

Private Sub Sonraki_Click()
    On Error Resume Next
        Range("D6:D65536").Find(TextBox1.Text, ActiveCell, xlValues, xl[COLOR="Red"]Part[/COLOR], , xlPrevious).Select
End Sub

 

[EKREM1661]

Sn. mancubus..! evet oldu.. elinize sağlık..çok teşekkür ediyorum ve iyi akşamlar diliyorum..

 

[mancubus]

rica ederim.
kolay gelsin.