Süzme yapılmış satırda sütunu gizleme

[KAYA212]

Merhaba,
ekteki sayfada bir listem var,
1-süzme yapıldığında (örnek a sınıfı) ok ve nok sütunları kalsın diger yok yazılı sütunları gizlesin süzmeyi iptal ettiğimde veya başka şekilde eski halini alsın istiyorum.
2-yada hiç süzme yapmadan sadece yok hücrelerini gizleyebiliyormuyuz.(bu imkansız olabilir sanırım ama bilmediğim çok şey var)

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu boş bir modüle uygulayın. Daha sonra sayfanıza bir buton ekleyip makro ataması yapın.

İstediğiniz süzme işleminden sonra butona tıkladığınızda ilgili sütunlar gizlenecektir.

Option Explicit
 
Sub SÜTUN_GİZLE()
    Dim Veri As Range, Adres As String
    
    Application.ScreenUpdating = False
    
    Adres = Cells(Cells(Rows.Count, 2).End(3).Row, Cells(4, Columns.Count).End(1).Column).Address(0, 0)
    Cells.EntireColumn.Hidden = False
    
    For Each Veri In Range("C5:" & Adres)
        If UCase(Veri.Value) = "YOK" And Veri.RowHeight > 0 Then Veri.EntireColumn.Hidden = True
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[KAYA212]

merhaba,
Teşekkür ediyorum.
listeyi eski haline getirebilirmiyiz,
yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Option Explicit
 
Sub TÜMÜNÜ_GÖSTER()
    Cells.EntireColumn.Hidden = False
End Sub

 

[KAYA212]

merhaba,
güzel olmuş fakat listeyi büyüttüğümde sağlıklı çalışmıyor.
nok olanlarıda gizliyor.
sadece yok olanları gizleyebilirmiyiz.ok ve nok lar kalmalı
teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Önerdiğim kod bahsettiğiniz şekilde tepki vermez. Sanırım sizin verilerinizin içinde aynı sütunda hem YOK hemde OK-NOK gibi veriler var. Doğal olarak siz YOK olan veriye ait sütunu gizlediğinizde diğer gizlenmemesi gereken sütunda gizlenmiş oluyor.

Alternatif çözüm önerileri;

İsterseniz gizlemek istediğiniz alanları koşullu biçimlendirme ile yazı rengini beyaz yapıp görünmez yapabilirsiniz.
İsterseniz makro ile başka bir sayfaya verileri aktararak özet liste oluşturabilirsiniz.

 

[KAYA212]

haklısınz, süzme yapılsa dahi satırlar varmış gibi işlem yapıyor ve
onlarıda gizliyor.
ilginiz için teşekkür ederim
iyi çalışmalar

 

[Korhan Ayhan]

Merhaba,

Üstteki #2 nolu mesajımdaki kodu güncelledim. Tekrar denermisiniz.

 

[KAYA212]

çok teşekkür ederim mükemmel olmuş.
elinize sağlık
iyi çalışmalar