gruplandırma!

[mmetin24]

sayın excel hocalarım!
sayenizde bi yere kadar getirdiğim stok takip programım için tekrar yardım istiyorum.
yeşil alanlara tıklandığında gruplar otomatik açılıyor!
bunu mavi boyaları yerlere nasıl uygulayabilirim?
ben bi türlü yapamadım.
yardımlarınız için teşekkürler....:yardim:

 

[mmetin24]

:yardim: :???:

 

[veyselemre]

Şöyle bir deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
    renk = Target.Interior.ColorIndex

    If renk <> 10 And renk <> 33 Then Exit Sub
            bas = Target.Row + 1
            acik = Rows(bas).Hidden
        If renk = 10 Then
                For a = Target.Row + 1 To [a65536].End(3).Row
                    If Cells(a, "a").Interior.ColorIndex = 10 Or Cells(a, "a") = 0 Then
                        son = a - 1
                        Exit For
                    End If
                Next
             Else
                For a = Target.Row + 1 To [a65536].End(3).Row
                    If Cells(a, "a").Interior.ColorIndex = 33 Or Cells(a, "a").Interior.ColorIndex = 10 Or Cells(a, "a") = 0 Then
                        son = a - 1
                        Exit For
                    End If
                Next
        End If
    Rows(bas & ":" & son).Hidden = Not acik
End Sub

 

[mmetin24]

:hihoho: :mrgreen: çok teşekkürler!!!!

 

[mmetin24]

yeşil alanlara tıkladığımda mavi alanlar açılarak geliyo!
bu alanlar açılmadan gelmesi için kodu nasıl deiştirmeliyim??

 

[bletchley]

Bu ornekte oldugu gibi, command butonu kullanmadan direk excel kutucuklarina nasil komut atayabiliyoruz ?