Sayı ve Metin İçeren Textbox

[beyinmuhendisi]

Ekli çalışmada Kurs_Listesi "Textbox2" farklı kodlar denememe rağmen tek Textbox kutusu ile "Kurs Sınıfı" süzmeyi başaramadım. Ya sayı oluyor ya metin-sayı.

Aynı Textbox2 kutusu içinde örneğin "801 ve 701 D" süzebilmemiz mümkün mü?

 

[beyinmuhendisi]

Oldu!

Nihayet aşağıdaki kod ile oldu; ancak sayıyı tam yazınca oluyor. İçerir şekline çevirebilir miyiz?

Private Sub TextBox2_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect ""
On Error Resume Next
NO = TextBox2.Value
Set FC2 = Range("D3:D65000").Find(What:=NO)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:=TextBox2.Value
If NO = "" Then
Selection.AutoFilter Field:=4
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveSheet.Protect ""
End Sub

 

[vardar07]

TextBox2 kodundaki satırı bulun. Kırmızılı yeri silip deneyin.

Set FC2 = Range("D3:D65000").Find(What:=METİN[COLOR="Red"][B]1[/B][/COLOR])

ayrıca aşağıdaki satırı eşleştirin.

Selection.AutoFilter Field:=4, Criteria1:=[COLOR="Red"]"*" &[/COLOR] TextBox2.Value [COLOR="red"]& "*"[/COLOR]

 

[beyinmuhendisi]

Sayın vardar07 yazdığınız kod ile "802, 801, 506 vb." sayıyı süzmüyor.

 

[Korhan Ayhan]

Sayısal verileri içerir mantığı ile süzemezsiniz.

Metin formatına dönüştürürseniz sonuç alabilirsiniz.

 

[vardar07]

Aranacak veriyi tamamını girdikten sonra sonuca ulaşıyor. Deneyiniz.

Private Sub TextBox2_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect ""
On Error Resume Next
METİN = TextBox2.Text
Set FC2 = Range("D3:D65000").Find(What:=METİN)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:=METİN
If METİN = "" Then
Selection.AutoFilter Field:=4
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveSheet.Protect ""
End Sub

 

[beyinmuhendisi]

Zaman ayırdığınız için teşekkürler!