Satırda çift tıklama ile alt satırları gizleme

[aydgur]

İyi günler . Satırlardaki yeşil renkli Fermaş, Afa Akşen gibi satırlara çift tıklayınca altındaki 16 satır gizlensin ve tekrar çift tıklayınca açılsın istiyorum.
Bana yardımcı olmanız mümkün mü ?

 

[Seyit Tiken]

Şu kod örneğini kendinize uyarlayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Excel.Intersect(Target, [a1]) Is Nothing Then
[a2:a17].EntireRow.Hidden = [a2:a17].EntireRow.Hidden = 0
End If
End Sub

 

[aydgur]

Teşekkür ederim, hayırlı ramazanlar dilerim.
Ama aynı sayfada ikinciyi nasıl yaparım ?
Aşağıdaki gibi yaptım olmadı .
rivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Excel.Intersect(Target, [a2]) Is Nothing Then
[a3:a18].EntireRow.Hidden = [a3:a18].EntireRow.Hidden = 0
End If
Cancel = True
If Not Excel.Intersect(Target, [a19]) Is Nothing Then
[a20:a35].EntireRow.Hidden = [a20:a35].EntireRow.Hidden = 0
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Excel.Intersect(Target, [a19]) Is Nothing Then
[a20:a35].EntireRow.Hidden = [a20:a35].EntireRow.Hidden = 0
End If
End Sub

 

[Seyit Tiken]

Bu şekilde, diğerlerini siz yaparsınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Excel.Intersect(Target, [a1]) Is Nothing Then
[a2:a17].EntireRow.Hidden = [a2:a17].EntireRow.Hidden = 0
End If
If Not Excel.Intersect(Target, [a18]) Is Nothing Then
[a19:a35].EntireRow.Hidden = [a19:a35].EntireRow.Hidden = 0
End If
End Sub