Renklere göre satır sıralama

[bayhekim81]

Selam, en üst satırda renklendirdiğim hücrelere tıklayınca alt tarafta ilgili renge ait satırların arka arkaya sıralanmasını istiyorum. Bunu nasıl sağlarım. Normalde sağ tıklayıp seçili hücre rengini üste getir ile yapılıyor.

https://drive.google.com/file/d/1CUT8JS4s7peWKF_QSjrGrs7ylNNtYHWm/view

 

[bayhekim81]

 

[Necdet]

Merhaba,

Sorunu tam anladım mı bilmiyorum, aşağıdaki kodları dener misiniz?

Sub RenkSırala()

    Dim i   As Long, _
        Kol As Integer
    
    Kol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1
    i = 5
    
    Do While IsDate(Cells(i, "A"))
        Cells(i, Kol) = Range("A" & i).Interior.ColorIndex
        i = i + 1
        
    Loop
    i = i - 1
    Range("A5:H" & i).Sort Key1:=Cells(5, Kol), order1:=xlDescending
    Columns(Kol).Delete
    
End Sub