Set k = .Range("c3:c" & str).Find(TextBox1.Text & "*", , xlValues, xlWhole)

[Kenan Yaz]

Set k = .Range("c3:c" & str).Find(TextBox1.Text & "*", , xlValues, xlWhole)

listbox'ta tarihe göre süzme işlemini, metin aramalarında yapıldığı şekilde yapabilmek için "*" yerine ne yazmak gerekir?


str = ActiveSheet.Cells(65536, "c").End(xlUp).Row
Set k = .Range("c3:c" & str).Find(cdate(TextBox1.Text) & "*", , xlValues, xlWhole)

 

[Orion1]

find komutunda * joker karakterini sadece string değerlerde kullanabilirsiniz.
Sayı ve tarihlerde kullanamazsınız.Çalışmaz çünkü.Ayni şey dögüde like kullanımı içinde geçerlidir.