Seçim ve Filtre Uygulama

[krm_group]

Arkadaşlar ek'te örnek excel tablosunu yükledim.

İstediğim şey ;

İmar Parseli
Kadastro Parseli
Köy Yerleşim Alanı

Bu üç seçenekten birini seçmek istiyorum ve

Bireysel
Ticari

bu iki seçenekten birini seçmeliyim ve formüllerini yazdığım tabloda sadece bana lazım olan kısım görünsün istiyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı. H1 yada I1 hücrelerinin değerine göre sütunlar gösterilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [H1:I1]) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    Columns("B:G").EntireColumn.Hidden = True
    If [H1] = "İmar Parseli" And [I1] = "Bireysel" Then Columns("B").EntireColumn.Hidden = False
    If [H1] = "İmar Parseli" And [I1] = "Ticari" Then Columns("C").EntireColumn.Hidden = False
    If [H1] = "Kadastro Parseli" And [I1] = "Bireysel" Then Columns("D").EntireColumn.Hidden = False
    If [H1] = "Kadastro Parseli" And [I1] = "Ticari" Then Columns("E").EntireColumn.Hidden = False
    If [H1] = "Köy Yerleşik Alanı" And [I1] = "Bireysel" Then Columns("F").EntireColumn.Hidden = False
    If [H1] = "Köy Yerleşik Alanı" And [I1] = "Ticari" Then Columns("F").EntireColumn.Hidden = False
    
End Sub

 

[krm_group]

çok teşekkür ederim istediğim oldu , fakat henüz yeniyim ilgili kod bölümü dediğiniz kısım tam olarak neresi ? ezber yapmak istemiyorum , konuyu anlarsam daha iyi olur.

 

[krm_group]

kod girilen kısmı buldum , makro içerik olarakta kaydediyorum fakat dosyayı açtığımda filtre kısımları gelmiyor ?

 

[Necdet]

kod girilen kısmı buldum , makro içerik olarakta kaydediyorum fakat dosyayı açtığımda filtre kısımları gelmiyor ?

Ne yaptığınızı bilmeden nasıl yorum yapabiliriz?

 

[krm_group]

bu şekilde yapmıştım.

 

[Korhan Ayhan]

Merhaba,

Makro uygulamasını doğru yapmışsınız.

Filtre kısımları veri doğrulama ile yapılmış. Bu sebeple H1 ve I1 hücrelerini kendi dosyanıza kopyalamalısınız. Bu işlemi yaptıktan sonra makronuz çalışacaktır.

 

[krm_group]

nasıl yapacağımı anlatabilirmisiniz ? ayrıca 4-5 sayfalık bir çalışmada her sayfaya ayrı ayrı bu işlemimi yapıcaz ?

 

[Korhan Ayhan]

Merhaba,

Eğer uygulamak istediğiniz diğer sayfalarda aynı yapıdaysa ThisWorkbook bölümüne yazılacak tek bir kodla bu işlemi yapabilirsiniz. Değilse tek tek yapmak zorundasınız.

Veri doğrulama işleminin nasıl yapıldığını forumda arama yaparak öğrenebilirsiniz.

 

[krm_group]

Teşekkür ederim yardımlarınız için , şuan gayet güzel çalışıyor.

 

[polis-53]

Merhabalar filitrelemeden sonra tümünü gösterebilirmiyiz.

 

[Necdet]

Merhabalar filitrelemeden sonra tümünü gösterebilirmiyiz.

Merhaba,

Şöyle bir mantık yürütülebilinir. H1 ve I1 in değerleri boş ise tüm sütunlar gösterilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [H1:I1]) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    Columns("B:G").EntireColumn.Hidden = True
   [COLOR=red] If [H1] = "" And [I1] = "" Then Columns("B:G").EntireColumn.Hidden = False
[/COLOR]    If [H1] = "İmar Parseli" And [I1] = "Bireysel" Then Columns("B").EntireColumn.Hidden = False
    If [H1] = "İmar Parseli" And [I1] = "Ticari" Then Columns("C").EntireColumn.Hidden = False
    If [H1] = "Kadastro Parseli" And [I1] = "Bireysel" Then Columns("D").EntireColumn.Hidden = False
    If [H1] = "Kadastro Parseli" And [I1] = "Ticari" Then Columns("E").EntireColumn.Hidden = False
    If [H1] = "Köy Yerleşik Alanı" And [I1] = "Bireysel" Then Columns("F").EntireColumn.Hidden = False
    If [H1] = "Köy Yerleşik Alanı" And [I1] = "Ticari" Then Columns("F").EntireColumn.Hidden = False
    
End Sub