textbox1 ile filtrelemeyi sayfa1 tamamına yapsın

[subutayı]

Private Sub TextBox1_Change()
On Error Resume Next
metin1 = TextBox1.Value
Set FC2 = Range("a51000").Find(What:=metin1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
If metin1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

bu kod sadece B sütunundakileri buluyor. sayfa1 içindekilerin tümü için nasıl ayarlanır. teşekürler.

 

[Korhan Ayhan]

Merhaba,

Aynı anda tüm sütunlara filtre uygulanabilir. Fakat farklı satırlarda bulunan eşleşen kayıtların tümü gözükmeyecektir.

Kafanızdaki kurgudan bahsederseniz farklı çözümler kurgulanabilir..

 

[subutayı]

korhan bey ilginiz için teşekkür ederim. eklediğim dosyada 50-60 sayfalık veri var. adını yazıp nerde ise bulmak istiyorum. teşekürler.

 

[subutayı]

hangi hücrede ise bulup renklendirse benim için yeterli olur . teşekkürler.

 

[Korhan Ayhan]

Profilinizde ofis sürümü olarak "Excel 2003 TR" yazıyor. Bu bilgi sanırım günce değil. Linki inceleyerek güncellemenizi rica ederim.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[subutayı]

korhan bey güncelledim