Hücre Değerine Göre Filitreleme Yapmak.!!

[sinan05]

İyi günler, iyi çalışmalar. Kayıtlar adlı dosyamda 11. Satırdan başlayan veriler var. A10 hücresine filitre ekledim, A11 ve sonrası hücrelerde 1. Taksit, 2. Taksit diye devam eden veriler var. Benim ricam sizlerden A9 hücresine yazdığım veriye göre makro filitreleme yapsın. Örneğin, A9 hücresine 4.taksit yazınca sadece 4.taksit yazan satırlar kalcak şekilde filitreleme yapsın. Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Örnek dosya eklerseniz daha hızlı ve doğru cevap alabilirsiniz.

 

[sinan05]

Örnek dosya eklerseniz daha hızlı ve doğru cevap alabilirsiniz.

Buyrun Orion1 Hocam ekledim. Yalnız A sütununda taksitler arası boşluk var onları doldurmayı unutmuşum.
https://s4.dosya.tc/server6/rloqcn/deneme.rar.html

 

[Orion1]

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A9]) Is Nothing Then Exit Sub
Range("A10:A" & Rows.Count).AutoFilter
Range("A10:A" & Rows.Count).AutoFilter field:=1, Criteria1:=Target.Value
End Sub

DOSYAYI INDIR

.

 

[sinan05]

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A9]) Is Nothing Then Exit Sub Range("A10:A" & Rows.Count).AutoFilter Range("A10:A" & Rows.Count).AutoFilter field:=1, Criteria1:=Target.Value End Sub

Orion1 Hocam çok teşekkür ederim, ALLAH RAZI OLSUN. Peki acaba A9 hücresine hem 1.taksit ve 2. taksit birlikte yazsam veya 1 den fazla 2-3 tane taksit belirtsem hepsini getirme imkanı varmı?

 

[Orion1]

Boşluk bırakmayın.Düzeltip tekrar yollayın.

 

[sinan05]

Boşluk bırakmayın.Düzeltip tekrar yollayın.

Yani hocam A9 hücresine 1.TAKSİT,2.TAKSİT Şeklinde araya virgül koyarakmı yazıcam?

 

[Orion1]

A sütununa verilerin arasında boşluk bırakmayın.
A9 hücresine değil.

 

[sinan05]

A sütununa verilerin arasında boşluk bırakmayın.
A9 hücresine değil.

Yok Hocam kastettiğim örneğin aynı anda 1.taksit,2.taksit veya daha fazla taksidi filitreleyebilirmi. Yani ben 1.taksit ve 2.taksit yazıcam sadece 1 ve 2. Taksitleri getircek.

 

[Orion1]

Filtreyebilir ancak veriler arasında boşluk yoksa.Onun için diyorum.

 

[Orion1]

Ben kod yazacam ondan sonra.

 

[sinan05]

Ben kod yazacam ondan sonra.

Tamam Hocam şimdi anladım, sağolun.