Yazı Başlıklarını Tıklayarak Gruplandırmayı Aktive Etmek?

[mmetin24]

Yapmaya Çalıştığım Grup Başlıklarına Tıklayark + - işaretlerinin görevini yapmak
bi kaç gündür bununla uğraşıyorum ama yapamadım.
Yardımlarınızı rica ediyorum.
Teşekkürler!

 

[mmetin24]

Sayın hocalarım için çok zor bi şey olmasa gerek ama yardım alamadım hala!:roll:

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1in kod sayfasına kopyalayın. Sarı renkli başlıkları seçtiğinizde çalışacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If Target.Interior.ColorIndex <> 6 Then Exit Sub
For a = Target.Row + 1 To 65536
If Cells(a, "b").Interior.ColorIndex = 6 Or Cells(a, "b") = 0 Then Exit Sub
If Cells(a, "b").Height > 0 Then
Rows(a).Hidden = True
Else
Rows(a).Hidden = False
End If
Next
End Sub

 

[mmetin24]

levent hocam teşekkürler!