Seçime göre filtre

[yakup123]

Arkadaşlar basit bir tablonun üstünde herhangi bir ürün seçtiğimde tablodan o ürünü filtreliyebilirmi dinamik olarak

 

[Mahir64]

Merhaba,

Yapılabilir. Dosya yapınızı görmemiz için örnek ekleyebilir misiniz?

 

[yakup123]

Hocam selam yani dosya yok aslında çok basit kolonlar adı şehir tarih olsun böyle 10-15 satır veri düşünebiliriz tablonun dışında örneğin İstanbul İzmir Ankara yazıyor istanbulu seçtiğimde tabloda istanbullar filtrelenebilir

 

[Necdet]

Merhaba,

Kodları denemek için bizim hazırlayacağımız tablo ile sizin kafanızdan geçen tablo aynı olmayabilir. Bu yüzden basit te olsa dosyanızı hazırlayıp foruma ekleyiniz.

 

[yakup123]

tabıkı dosya ektedir sağdaki illerden seçilince soldakı tabloda fıltrelenmesi lazım

 

[Mahir64]

İllerden kastınız nedir?
Dosyanızı kontrol eder misiniz?

 

[yakup123]

oo hocam pardon ya kafam karıştı yani çalıştığı bölümü sağdaki
muhasebe mutfak finans yazıyor ya örneğin muhasebeyi seçersem muhasebeciler filtrelensin mutfagi seçersem mutfak filtrelensin

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.

 

[yakup123]

üstadım koılay gelsin benim gönderdiğim gibi olamıyormu acaba açılan kutudan değilde yan yana yazılmış bölümlerden seçtikçe yada tıkladıkça filtreleme gibi çünkü bölümlerin açık olması lazım açılan kutu bılıyosunuz kapatıyor

 

[assenucler]

Teşekkürler sayın asr35.

 

[ZorBey_]

İyi Çalışmalar
Sayın assenucler

 

[yakup123]

arkadaşlar konu hala günceldir yardımcı olabilecek varmı acaba ?
saygılarımla

 

[Necdet]

Merhaba,

Başlangıçta dosya bile eklemiyordunuz, şimdi çözüm beğenmiyorsunuz

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Herhangi bir hücreye çift tıkladığınızda eğer hücre boş ya da rakam içeriyorsa süzülmüş veriye açacak, yok alfabetik bir değer olursa o değere göre süzecektir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Dim i   As Long
    
    Range("A1").AutoFilter
    If Target.Value = "" Or IsNumeric(Target.Value) Then Exit Sub
    i = Cells(Rows.Count, "A").End(3).Row
    Range("A1:C" & i).AutoFilter Field:=2, Criteria1:="=" & Target.Value
 
End Sub