Textbox

[1903emre34@gmail.com]

Merhaba,

Textbox2'de herhangi bir kelime yazdığım zaman, ilk sıradaki kelime ile başlayan cümleleri süzmektedir, benim istediğim cümlenin herhangi birisinde yer alıyorsa süzmesi için aşağıdaki kod nasıl değişiklik yapabiliriz.

Private Sub TextBox2_Change()
If TextBox2 <> Empty Then
Selection.AutoFilter Field:=2, Criteria1:=TextBox2.Text & "*"
Else
Selection.AutoFilter Field:=2
End If
End Sub

 

[Ömer BARAN]

Merhaba.

İlgili satırı yandaki şekilde değiştirerek deneyin.

Selection.AutoFilter Field:=2, Criteria1:= "*" & TextBox2.Text & "*"

 

[1903emre34@gmail.com]

Teşekkürler, çalışıyor.

 

[Ömer BARAN]

Kolay gelsin.