otomatık fıltreleme yardımı

[hypnose]

arkadaslar merhaba

ekteki dosyada e sutununda 15 - 151 -16 -161 gıbı 4 deger bulunmakta
uzerındekı textboxa deger gırdıgımde otomatık fıltreleme yapıyor

faka ben uste 15 gırdıgımde hem 15 i hemde 151 i gosterıyor

benım ıstedıgım 15 gırersem sadece 15 gostersın

boyle bır sey yapabılırmıyız

tesekkurler

 

[fedeal]

Private Sub TextBox5_Change()
On Error Resume Next
SONUC2 = TextBox5.Value
Set FC2 = Range("E10:E65500").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=5, Criteria1:="*" & TextBox5.Value & "*"
End Sub
koddaki kırmızı * işaretleri silin iyi çalışmalar.

 

[Orion1]

İlgili satırı aşağıdaki gibi yapın.

Selection.AutoFilter Field:=5, Criteria1:= TextBox5.Value

 

[hypnose]

cok tesekkur ederım sızlerın sayesınde az da olsa ogrenmeye basladım bu ısı

ellerınız dert gormesın...