Doğru Kritere Göre İstenen Sütunu Göster/Gizle Makrosu

Merhaba, Bu seferki makromuz , tanımlı bir hücrede istediğimiz bir kelime yazıldığında veya filtreden seçildiğinde görünmesini istediğimiz veya istemediğimiz sütunları gösterip gizleyebilmemizi sağlıyor.Sütunları istediğiniz kadar çoğaltabilirsiniz.Yapmanı gereken sadece aşağıdaki makroyu ilgili sayfanın olduğu kod bölümüne kopyalayıp hücre ve kriter bilgisini güncellemenizdir.Umarım faydalı olur. iyi çalışmalar 😊

Private Sub Worksheet_Change(ByVal Target As Range)   'hücredeki veri değiştiğinde makro çalışsın istiyorsak bu komutla makroya başlamalıyız ve ilgili sayfanın olduğu sheet e koymalıyız If Range("B5") = "Risk" Then  'Risk isimli seçeneği seçerseniz Range("G:G,W:W").Select  'Bu sütunları görünür yapacak     Selection.EntireColumn.Hidden = False Range("H:H,V:V").Select 'Bu sütunları gizleyecek     Selection.EntireColumn.Hidden = True     Range("B5").Select End If If Range("B5") = "Fırsat" Then   'Fırsat isimli seçeneği seçerseniz      Range("H:H,V:V").Select             'Bu sütunları görünür yapacak     Selection.EntireColumn.Hidden = False      Range("G:G,W:W").Select     'Bu sütunları gizleyecek     Selection.EntireColumn.Hidden = True Range("B5").Select 'sütunları aralara virgül koyarak arttırabilirsiniz. End If End Sub