Renge Göre Gizleme ve Açma

[emirfilar]

Merhaba ekte göndermiş olduğum excel dosyasında sarıya boyadığım alanları otomatik olarak gizlemek istiyorum. Nasıl yapabilirim acaba ? Sayfada gizle ve göster butonları olmasını istiyorum. Gerektiğinde gizlenen satırları görmek için. Yardımcı olursanız sevinirim. Kod yazarak yapmayı denedim ama maalesef yapamadım.

 

[yanginci34]

Denermisiniz.

 

[antonio]

Alternatif

 

[emirfilar]

Yardımlarınız için teşekkür ederim.

 

[emirfilar]

Alternatif

Kodu görüntüleme şansım olurmu ben bunu bir kaç dosyamda daha yapmak istiyorum ama her seferinde buraya atmak istemiyorum. Teşekkür ederim

 

[Korhan Ayhan]

Alternatif;

TEK butonla satır gizleme ve gösterme işlemi yapabilirsiniz. EKLE menüsünden sayfanıza bir şekil ekleyip makroyu deneyebilirsiniz. Uzun buton adı kod tarafında hata verdiği için ben ad kutusuna "Buton" yazarak ismini kısalttım.

Option Explicit
Dim XL_Check As Boolean

Sub Hidden_Or_Show_Yellow_Row()
    Select Case XL_Check
        Case False
            ActiveSheet.Range("A1:K" & Rows.Count).AutoFilter Field:=1, Operator:=xlFilterNoFill
            ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "GÖSTER"
        Case True
            ActiveSheet.ShowAllData
            ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "GİZLE"
    End Select
    XL_Check = Not XL_Check
End Sub

 

[antonio]

Kodu görüntüleme şansım olurmu ben bunu bir kaç dosyamda daha yapmak istiyorum ama her seferinde buraya atmak istemiyorum. Teşekkür ederim

Korhan Bey'in önerdiği kodlar daha kullanışlı çünkü sadece sarı renk değil hangi rengi kullanırsanız çalışır. Ayrıca çok büyük boyutlu dosyalarda hız avantajını fark edersiniz.

 

[emirfilar]

Alternatif;

TEK butonla satır gizleme ve gösterme işlemi yapabilirsiniz. EKLE menüsünden sayfanıza bir şekil ekleyip makroyu deneyebilirsiniz. Uzun buton adı kod tarafında hata verdiği için ben ad kutusuna "Buton" yazarak ismini kısalttım.

Option Explicit
Dim XL_Check As Boolean

Sub Hidden_Or_Show_Yellow_Row()
    Select Case XL_Check
        Case False
            ActiveSheet.Range("A1:K" & Rows.Count).AutoFilter Field:=1, Operator:=xlFilterNoFill
            ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "GÖSTER"
        Case True
            ActiveSheet.ShowAllData
            ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = "GİZLE"
    End Select
    XL_Check = Not XL_Check
End Sub

Hocam bunu denedim. Gayet hızlı fakat gizle dediğimde sadece sarı renkli olanları gizlemesini istiyorum. Bunu nasıl yapabilirim. Beyaz ve yeşil olanları göstermesini istiyorum.

 

[Korhan Ayhan]

Bu tarz kod satırlarını elde etmek için ben MAKRO KAYDET yöntemini kullanıyorum. Öğrenme aşamasındaki tüm arkadaşlara tavsiye ederim.

Bu satırı;

ActiveSheet.Range("A1:K" & Rows.Count).AutoFilter Field:=1, Operator:=xlFilterNoFill

Aşağıdaki ile değiştiriniz..

ActiveSheet.Range("A1:K" & Rows.Count).AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor

 

[emirfilar]

Bu tarz kod satırlarını elde etmek için ben MAKRO KAYDET yöntemini kullanıyorum. Öğrenme aşamasındaki tüm arkadaşlara tavsiye ederim.

Bu satırı;

ActiveSheet.Range("A1:K" & Rows.Count).AutoFilter Field:=1, Operator:=xlFilterNoFill

Aşağıdaki ile değiştiriniz..

ActiveSheet.Range("A1:K" & Rows.Count).AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor

Hocam teşekkür ederim fakat yanlış anlaşıldım sanırım. Dediğiniz satırı değiştirdim ve kontrol ettim. Bu şekilde gizle dediğimde sarı renkli olan kısım kalıyor sadece. Ben tam tersi olmasını istiyorum. Gizle dediğimde sarı boyalı olanları gizlemesini ve kalan diğer kısmı göstermesini istiyorum.

 

[Korhan Ayhan]

Paylaştığım dosyada zaten sarı gizleniyor. Dolgu rengi olmayanlar kalıyor. Kısacası önerdiğim yöntemle tek renk seçimi yapılabiliyor. Eğer birden fazla renk kullanıyorsanız önerdiğim kodu yardımcı sütunla desteklemek gerekecektir. Ya da diğer arkadaşların önerilerini deneyebilirsiniz.

 

[Korhan Ayhan]

Bu çalışmada yardımcı sütuna gerek yok. Ama yine de renk kodlarını görebilmeniz adına silmedim.

 

[emirfilar]

Bu çalışmada yardımcı sütuna gerek yok. Ama yine de renk kodlarını görebilmeniz adına silmedim.

Yardımcı olduğunuz için teşekkürler Korhan bey