Çözüldü Şarta bağlı satır ve sütun gizleme

[klop01]

Değerli arkadaşlar,
Ekteki belgede şarta bağlı satır ve sütun gizlemesi yapmakla ilgili iki sorum var.
Yardımlarınızı rica ediyorum.

http://s7.dosya.tc/server10/s1v1tm/dolu.rar.html

 

[ASLAN7410]

Merhaba, sizin kodlardan yola çıkarak aşağıdaki kod sizin isteklerinizi yapıyor galiba.

Private Sub Worksheet_Activate()
say = WorksheetFunction.Count(Sayfa2.Range("D4:R4"))
If say = 0 Then
Rows("5:5").EntireRow.Hidden = True
Columns("U:U").EntireColumn.Hidden = True

If Sheets("VERİLER").Range("S4") = "" Then
Rows("6:6").EntireRow.Hidden = True

Else

Rows("5:5").EntireRow.Hidden = False
Columns("U:U").EntireColumn.Hidden = False

Rows("6:6").EntireRow.Hidden = False
End If
End If
End Sub

 

[klop01]

Sayın ASLAN7410,
Kod için teşekkürler.

Şöyle bir durum var:
1. Verdiğiniz kod Sheets("VERİLER").Range("S4") dolu iken göstermesi gereken 6. satırı gösterdi ancak göstermemesi gereken 5. satır ve U sütununu da gösterdi.
2. Sayfa2 D4:R4 aralığından birinde değer varsa gizli olan 5. satırı ve U sütununu göstermedi.

OLMASI GEREKEN:
1. Sayfa2 D4:R4 aralığından birinde değer varsa 5. satırı ve U sütununu göstermeli, değilse 5. satırı ve U sütununu gizlemeli.
2. Birinci maddeden bağımsız olarak Sheets("VERİLER").Range("S4") dolu ise 6. satırı göstermeli, değilse 6. satırı gizlemeli.
İki madde birbirinden bağımsız olmalı.

Bu bağlamda kodda nasıl değişiklik yapmalıyız?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Activate()
    say = WorksheetFunction.Count(Sayfa2.Range("D4:R4"))
    If say = 0 Then
        Rows("5:5").EntireRow.Hidden = True
        Columns("U:U").EntireColumn.Hidden = True
    Else
        Rows("5:5").EntireRow.Hidden = False
    End If
    If Sayfa2.Range("S4") = "" Then
        Rows("6:6").EntireRow.Hidden = True
    Else
        Rows("6:6").EntireRow.Hidden = False
    End If
End Sub

 

[klop01]

Sayın Korhan Ayhan,
Yardımınız için çok teşekkürler, sorun çözüldü.
Yalnız koda bir satır eklemek gerekti. Onu da koda bakıp deneme yaparak buldum. Columns("U:U").EntireColumn.Hidden = False
Konu ile ilgilenen olursa kodun son hâlini aşağıya ekliyorum.
AYRI BİR SORU: Moderatör olarak bilginiz olabilir düşüncesi ile soruyorum. Kodları kod penceresi içine aldığımızda üzerinde renklendirme yapamıyor muyuz?

Private Sub Worksheet_Activate()
    say = WorksheetFunction.Count(Sayfa2.Range("D4:R4"))
    If say = 0 Then
        Rows("5:5").EntireRow.Hidden = True
        Columns("U:U").EntireColumn.Hidden = True
    Else
        Rows("5:5").EntireRow.Hidden = False
        Columns("U:U").EntireColumn.Hidden = False
    End If
    If Sayfa2.Range("S4") = "" Then
        Rows("6:6").EntireRow.Hidden = True
    Else
        Rows("6:6").EntireRow.Hidden = False
    End If
End Sub

 

[Korhan Ayhan]

Linki inceleyiniz.

https://github.com/gallaux/VBEThemeColorEditor