otomatık fıltreleme yardımı

Katılım
14 Mart 2008
Mesajlar
53
Excel Vers. ve Dili
excel 2003
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
 

Ekli dosyalar

fedeal

Banned
Katılım
29 Mayıs 2008
Mesajlar
1,985
Excel Vers. ve Dili
2003 tr
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
İlgili satırı aşağıdaki gibi yapın. :cool:
Kod:
Selection.AutoFilter Field:=5, Criteria1:= TextBox5.Value
 
Katılım
14 Mart 2008
Mesajlar
53
Excel Vers. ve Dili
excel 2003
cok tesekkur ederım sızlerın sayesınde az da olsa ogrenmeye basladım bu ısı

ellerınız dert gormesın...
 
Üst