Detayları Ana Satıra Tıklayınca Görmek

[ertuer]

Sn. Arkadaşlar ,hazırladığım bir raporda gider veya gelir kalemlerinin
alt detaylarının satır izerine tıklanınca görünmesini istiyorum.
Ayrıca detayı olan satırların olmayanlardan ayıran bir fark olmalı ki
detayı olmayanı boşuna tıklayıp detay aramayalım.Bir de bir butonla mı olur bilmiyorum tamamının detaylarını gösterip gizleme seçeneği olursa daha mükemmel olur. örnek dosyayı ekte gönderiyorum.selamlar LÜTFEN YARDIM !!!

 

[ertuer]

LİSTEDE BU MESAJI BEN GÃ?REMİYORUM.ACABA HİÇ KİMSE GÃ?REMİYOR MU ?

 

[ertuer]

Sayın Zerige ve leventm bana yardımcı olmanızı rica ediyorum .mümkünse !

 

[cako]

İstediğiniz böyle bir şey mi?

 

[ertuer]

sn cako teşekkür ederim.temel olarak istediğim bu. Ancak , a- bir buton tıklanınca hepssinin detayını açsın. b - detaylar açık değilken hangi satırların detayı varsa, bu bir şekilde bir işaretle anlaşılsın ve istenirse eğer o satırın üstüne tıklanarak detay
görülsün istiyorum. Sıktıysam kusura bakma fakat böyle olursa daha kullanışlı olacak. selamlar.

 

[cako]

Kod sayfasını aşağıdakiyle değiştirin.

Private Sub CommandButton1_Click()
gizle
End Sub

Private Sub CommandButton2_Click()
gosterhepsi
End Sub
Private Sub CommandButton3_Click()
For i = 1 To 10
 Cells(i, 9).Interior.ColorIndex = i - 1
Next i
End Sub

Private Sub Worksheet_Activate()
gizle
End Sub
Sub gizle()
For i = 1 To Cells(65536, 1).End(xlUp).Row
    If i < 2 Then GoTo 20
    If Cells(i, 1) > 0 And Cells(i - 1, 1) < 1 Then
        Range("A" & i).Interior.ColorIndex = 3
    Else
20:
        Range("A" & i).Interior.ColorIndex = 0
    End If
        
    If Rows(i).Hidden = True Then GoTo 10
    If Cells(i, 1) < 1 Then Rows(i).Hidden = True
    
10:
Next i
End Sub
Sub goster()
a = ActiveCell.Row - 1
For i = a To 1 Step -1
    If Rows(i).Hidden = True Then
        Rows(i).Hidden = False
    Else
        Exit Sub
    End If
Next i
End Sub
Sub gosterhepsi()
For i = 1 To Cells(65536, 1).End(xlUp).Row
    If Rows(i).Hidden = True Then Rows(i).Hidden = False
Next i
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Exit Sub
If Cells(Target.Row, 1).Interior.ColorIndex = 3 And Rows(Target.Row - 1).Hidden = False Then
a = Target.Row - 1
For i = a To 1 Step -1
    If Rows(i).Hidden = False And Cells(i, 1) < 1 Then
        Rows(i).Hidden = True
        If i = 1 Then GoTo 10
        
    Else
        GoTo 10
    End If
Next i
End If
If Cells(Target.Row, 1).Interior.ColorIndex <> 3 Then Exit Sub
goster
10:
Cells(Target.Row, 1).Select
End Sub

 

[ertuer]

SN ÜSTADIM Ã?NCELİKLE EMEÐİZE SAYGI... VE SİZE ÇOK TEÞEKKÜR EDERİM.ANCAK YAZDIÐINIZ KODU KOPYALAYIP ALT F11 İLE AÇTIÐIM SAYFAYA YAPIÞTIRDIM AMA BECEREMEDİM HERHALDE ESKİSİ GİBİ ÇALIÞIYOR. EÐER Ã?RNEÐE UYGULARSANIZ ÇOK İYİ OLUR.

 

[ertuer]

ÜSTADIM TAMAMDIR. BECEREBİLDİM.SAÐOL MÜKEMMEL OLDU SAYANİZDE !!

 

[ertuer]

SN.CAKO Yeni bir excel sayfasına bu kodların tamamını nasıl aktarmalıyım.
2 adet butonu koyarak.ilgili makroları atıyorum ve çalışıyor. Ancak
3 makro hagisi ise (butonu olmayan-ana satır üzerine tıklanarak
açılıp kapanan) o makro nerdedir ve nasıl uygulamalıyım.yardımcı
olursanız seviirim.Bir de ilk satır sabit olsun gizle ve göster
seçeneklerinde sayfa başı ve açıklama vb satırları sabit olarak görünse
daha iyi olur diye düşünüyorum. emeğinize saygı ile sağlıklı ve mutlu
kalın.

 

[Exelans]

Diğer 2 makro (gizle ve göster)

Sub gizle()
For i = 1 To Cells(65536, 1).End(xlUp).Row
    If Rows(i).Hidden = True Then GoTo 10
    If Cells(i, 1) < 1 Then Rows(i).Hidden = True
10:
Next i
End Sub
Sub goster()
a = ActiveCell.Row - 1
For i = a To 1 Step -1
    If Rows(i).Hidden = True Then
        Rows(i).Hidden = False
    Else
        Exit Sub
    End If
Next i
End Sub

Eğer ilk satır sabit kalsın istiyorsanız 2 yöntemi var.
1. A1 hücresine 0(sıfır)dan büyük bir sayı yazınız. Bu durumda kodlar bu satırı göstermek zorunda kalır.
2. Kodlarda tüm döngüleri 2.satırdan başlatın veya bitirin.