çift tıkla satır kümesi gizle göster

[Esteban34]

Ekli dosyada açıklamaya çalıştığım üzere

3 er satırdan oluşan gruplamalar var. Gizle hücresine çift tıkla istenilen üçlü grup gösterilsin, ekle hücresine çift tıklanınca 3 lü kümenin hemen altında bulunan diğer üçlü küme gösterilsin.

Destek olacak konu duayenlerimize teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne uygulayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sat As Integer
    If Intersect(Target, [g:g]) Is Nothing Then Exit Sub
        For sat = 4 To Cells(Rows.Count, "g").End(xlUp).Row
            If Cells(Target.Row, "g") = "EKLE" And Cells(sat, "b") = 4 Or Cells(sat, "b") = 6 Then
                Cells(sat, "b").EntireRow.Hidden = False
            End If
        Next
        For sat = 4 To Cells(Rows.Count, "g").End(xlUp).Row
            If Cells(Target.Row, "g") = "GİZLE" And Cells(sat, "b") >= 4 And Cells(sat, "b") <= 30 Then
                Cells(sat, "b").EntireRow.Hidden = True
            End If
        Next
End Sub

 

[Esteban34]

Ziya bey hızlı cevabınız için teşekkür ederim. Sanırım anlatmayı tam beceremedim.
alt alta 3 lü gruplar halinde verilerim mevcut.
İlk üçlü verinin altındaki bütün veriler gizli olsun,
ilk üçlü verinin 3.hücresine tıklayınca hemen altındaki 2. üçlü veri gelsin.ihtiyaç olmaması halinde de 2. gelen üçlü veri üzerindeki 1. hücreye tıkladığımda son eklediğim 2. üçlü veri tekrar gizlensin.

Kombinasyon bu şekilde toplamda 60 satır için böyle devam etsin

Teşekkür ederim.