Hiyeraşiye göre kırılım gizlemek

[caksi]

merhaba,
forumda aradım ama bulamadım belli bir hiyerarşisi olan bir raporu oluşturacağım ancak alt toplamdaki gibi ilgili satırın alt kırılımını bir butona basarak gizlemek yada göstermek istiyorum. Ekteki tabloda daha iyi anlatabilirim sanırım şimdiden zaman ayırdığınız için teşekkür ederim.

 

[necro82]

Merhaba,
Bir göz atar mısınız? Umarım işinize yarar.
Not: Excel Vers. 2003 (Eng)

 

[Necdet]

Merhaba,

Her işlem için Buton koymaya gerek var mı bilemiyorum.

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı.

A ve D sütununda herhangi bir hücreye çift tıkladığınızda çalışır.

Hangi hücreye çift tıklarsanız alt kırılmalar gizlenir. D sütununa çift tıklarsanız tümü gösterilir.

Belki beğenirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
Dim i       As Long
Dim SonSat  As Long
Dim BasSut  As Integer
Application.ScreenUpdating = False
BasSut = Target.Column + 1
Rows.Hidden = False
If Target.Column = 4 Then
    Exit Sub
Else
    BasSut = Target.Column + 1
End If
SonSat = Cells(Rows.Count, "E").End(3).Row
For i = 3 To SonSat
    If Application.WorksheetFunction.CountA(Range(Cells(i, BasSut), Cells(i, "D"))) = 1 Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

 

[caksi]

Üstadlar çok teşekkür ederim necro82 zaman ayırdığın için teşekkürler...

Necdet bey ; çalışmanız tam istediğim gibi ellerinize sağlık ancak bunu kendi dosyama nasıl ekleyeceğimi bilmiyorum