hücre gizleme

[bitmez13]

a1 hücresi degeri 1 ise 3,5,7,9,11 satırlar gizlenmesini istiyorum nasıl yapabilirim

 

[Korhan Ayhan]

Deneyiniz.

Sub Satir_Gizle_Goster()
    Dim Alan As Range
    Set Alan = Union(Range("A3"), Range("A5"), Range("A7"), Range("A9"), Range("A11"))
    Alan.EntireRow.Hidden = Range("A1") = 1
End Sub

 

[bitmez13]

çok teşekkürler Korhan bey yanlız ben eksik bilgi verdim sanırım 1 yazınca satırlar gizliyor ama boş olunca eski haline gelmiyor sizden ricam bunada çare olursanız çok sevinirim

 

[Korhan Ayhan]

Şimdi tekrar denedim. 1 olunca satırlar gizleniyor. Farklı bir değer ya da hücre boş olunca satırlar görünür hale geliyor.

 

[Ömer BARAN]

Merhaba.

Sanırım Sayın bitmez13, A1 hücresinde değişiklik olduğunda,
gizleme/gösterme işleminin otomatik olarak gerçekleşmesini istiyor.

Bunu sağlamak için, alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi
seçtiğinizde açılacak VBA ekranının sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın
(Sayın AYHAN'ın gönderdiği kod'u da aynı yere yapıştırdığınızı varsaydım).

Sonra A1 hücresinde değişiklik yaparak sonucu gözlemleyin.
.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[B][COLOR="Blue"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
[COLOR="blue"][B]Call Satir_Gizle_Goster[/B][/COLOR]
End Sub