satırda çift tıkla satır gizle göster

[limanC34]

Selam Arkadaşlar
Dosyamdaki satır gizle gösteri buton yardımıyla değilde A ve N sütuları arasındaki herhangi bir renkli hücreye çift tıkla ilgili satırları nasıl gizle göster yapabilirim?
Teşekkürler.

 

[zipir123]

gizle göster

Selam Arkadaşlar
Dosyamdaki satır gizle gösteri buton yardımıyla değilde A ve N sütuları arasındaki herhangi bir renkli hücreye çift tıkla ilgili satırları nasıl gizle göster yapabilirim?
Teşekkürler.

ilgili satırlar veri/gruplandırseviyelendir/gruplandır seçeneğinden yapılmıştır.
satırların başında bulunan (+) (-) işaretlerine tıklayarak izleyebilirsiniz.

 

[limanC34]

Sayın zipir123
öncelikle alaka ve çözümünüz için teşekkür ederim.O yöntemi biliyorum.Benim istediğim renkli satırda çift tıklamayla olabilmesi.
Saygılarımla.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim alan As Range, hcr As Range
If Intersect(Target, [A1:N1,A11:N11,A21:N21]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Set alan = Range("A2:A10")
If Target.Row = 11 Then Set alan = Range("A12:A20")
If Target.Row = 21 Then Set alan = Range("A22:A31")
Cancel = True
For Each hcr In alan
    If hcr.EntireRow.Hidden = True Then
        hcr.EntireRow.Hidden = False
        Else
        hcr.EntireRow.Hidden = True
    End If
Next hcr
    
End Sub

 

[limanC34]

Sayın Evren Gizlen
Yine harika bir çözüm.Çok teşekkür ederim.
Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen
Yine harika bir çözüm.Çok teşekkür ederim.
Saygılarımla.

Rica ederim.
İyi çalışmalar.

 

[aksoy53]

işime çok yaradı teşekkür ederim