Arama yaparken bazı kelimelerde sıkıntı var

[asdsxx]

Arkadaşlar aşağıdaki kod arama yapıyorum ve gayet de başarılı.
Yalnız küçük bir sıkıntı var arama yaparken bazı karakterleri hassas kabul ediyor ve aslında olduğu halde bulmuyor
Örnek: Textbox5'e "Adem", "Musa", "Yakub"yazınca ve arama yapılan sütunda "Âdem", "Mûsa", "Ya'kub" gibi işaretler varsa bulmuyor harflerin üstündeki "^" veya "Kesme" işaretini nasıl yok sayabilirmiyiz

Private Sub CommandButton10_Click()
Sheets("sayfa1").Select
On Error Resume Next
METİN1 = TextBox5.Value
Set FC2 = Range("A2:h65000").Find(What:=METİN1)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox5.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=4

 

[Korhan Ayhan]

Excelin filtre özelliğindeki gibi joker karakter kullanabilirsiniz.

Yani Adem için ?dem yazarsanız isteğinize benzer sonuç alabilirsiniz.

 

[asdsxx]

Korhan Bey söylediğim karakterleri dikkate almadan arama yapacak bir kod yazılabilir mi acaba?
Dediğiniz olabilir deneyeceğim ama verdiğim örnekler bizzat karşılaştığım olaylar. ama hangi kelimede nasıl bir ilave işaret var bilemediğim için aradığımda yok gösteriyor.

 

[Korhan Ayhan]

Siz arama işlemini sayfa üzerinde mi yapıyorsunuz? Yoksa UserForm üzerinde mi yapıyorsunuz?

 

[Korhan Ayhan]

Bir dosya hazırladım. İnceleyin. Uymayan yeri varsa revize ederiz.

Joker karakterli arama yaptığı için bazı durumlarda istemediğiniz sonuçlar verebilir. Özellikle 1-2 karakterli aramalarda sıkıntı yaratacaktır.

Mesela denemek için;
İlk önce onay kutucuğunu pasif yapın.
Arama kutusuna YAKUB yazıp deneyin.
Oluşan filtreyi inceleyin.
Sonra onay kutucuğunu aktif yapın.
Oluşan listeyi kontrol edin.

Belki bu şekilde kullanım size doğru listeye ulaşmada yardımcı olabilir.