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

Katılım
18 Şubat 2007
Mesajlar
50
Excel Vers. ve Dili
2000
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!
 
Katılım
18 Şubat 2007
Mesajlar
50
Excel Vers. ve Dili
2000
Sayın hocalarım için çok zor bi şey olmasa gerek ama yardım alamadım hala!:roll:
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu sayfa1in kod sayfasına kopyalayın. Sarı renkli başlıkları seçtiğinizde çalışacaktır.

Kod:
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
 
Katılım
18 Şubat 2007
Mesajlar
50
Excel Vers. ve Dili
2000
levent hocam teşekkürler!
 
Üst