Seçimli Filtreleme

[igultekin2000]

Merhaba;
Çalışma sayfamda sütunlar var. K sütununa yazdığım listeye göre B sütununda filtreleme yapabilmem mümkün olabilir mi?
Zaman zaman belirlediğim No.ya göre filtreleme yapmam gerekiyor. Filtreleme yapıp tek tek seçmek zaman alıyor. Bunu daha pratiğe aktarabilir miyiz. Teşekkürler.

 

[veyselemre]

K1 'e FİŞ NO yazıp, altına numaraları ekleyin.

Sub Filtrele()
    Range("A1:I" & Cells(Rows.Count, "A").End(3).Row).AdvancedFilter _
        Action:=xlFilterInPlace, CriteriaRange:= _
        Range("K1:K" & Cells(Rows.Count, "K").End(3).Row), Unique:=False
End Sub

Sub FiltreKaldir()
    ActiveSheet.ShowAllData
End Sub

 

[igultekin2000]

Teşekkürler ederim, makro sorunsuz çalışıyor, ayrıca hesap ismine göre çalışması da çok güzel olmuş, farklı sütun sorgulaması için, iyi çalışmalar.