Farklı renkteki satırları sortlama

[donjuan1905]

Elimdeki excel tablosunda sarı ile highlight edilmiş satırlar var. Acaba bunları bir araya toparlayan (bir başka deyişle renklere göre sortlayan) makro veya fonksiyon varmıdır?

Saygılar&Sevgiler

 

[Necdet]

Örnek dosyayı da bizim oluşturmamızı ister misiniz?

 

[donjuan1905]

buraya nasıl dosya ekleyebilirim... ?

 

[Necdet]

Forum kurallarını okumalısınız.

Ekteki kodları bir modüle bağlayıp deneyebilirsiniz.

Sub Renkli_Sirala()
Application.ScreenUpdating = False
Kolon = [IV1].End(1).Column + 1
SonSatır = [A65536].End(3).Row
For i = 2 To SonSatır
    Cells(i, Kolon) = Cells(i, "A").Interior.ColorIndex
    Cells(i, Kolon + 1) = Cells(i, "A").Font.ColorIndex
Next i
Range(Cells(2, 1), Cells(SonSatır, Kolon + 1)).Sort key1:=Cells(2, Kolon), key2:=Cells(2, Kolon + 1)
Columns(Kolon).Delete
Columns(Kolon).Delete
End Sub

 

[legendcomeback]

Makro yada

 

[N.Ziya Hiçdurmaz]

Yanıt

Değişik örnek.

Sub RENSIRALA()
Dim SUT As Integer
For SUT = 1 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A").Interior.ColorIndex = 6 Then
Cells(SUT, "F") = "."
End If
Next
Range("A1:F20").Sort Key1:=[F1], Order1:=xlAscending
[F1:F1000].Clear
End Sub

 

[donjuan1905]

teşekkürler