Makro ile renge göre sıralama hk.

[OoParadiSeoO]

Arkadaşlar merhaba,

A ile N sütunu arasında yer alan veriler içerisinden A sütunundaki hücrelerde rengi sarı olanları en üstte sıralayacak makro kodları hakkında yardımcı olabilirmisiniz? (renk = .Interior.ColorIndex = 6)
Makro kaydet yöntemiyle denediğimde cok fazla kod geliyor. Bunu en kısa şekilde nasıl yapabiliriz?

 

[hamitcan]

Verilerinizi filtreleyin sonra renge göre sıralayın.

 

[OoParadiSeoO]

Sayın hamitcan o şekilde olduğunu zaten biliyorum. Amacım bu işlemi makro ile gerçekleştirmek. Makro kaydet yönteminde çok fazla kod geliyor. Daha sade biçimde hangi kodlarla bu işlemi gerçekleştirebiliriz? Bunu ifade etmeye çalıştım..

 

[OoParadiSeoO]

Arkadaşlar yardımcı olabilecek varmı ?

 

[hamitcan]

Makro Kaydet yöntemi ile yaptım.

Sub Sirala()
'
' Makro2 Makro
'

'
    Range("A1").Select
    Selection.AutoFilter
    Range("A1").Select
    ActiveWorkbook.Worksheets("Sayfa1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sayfa1").AutoFilter.Sort.SortFields.Add(Range( _
        "A1:A11"), xlSortOnCellColor, xlAscending, , xlSortTextAsNumbers).SortOnValue. _
        Color = RGB(255, 255, 0)
    With ActiveWorkbook.Worksheets("Sayfa1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        Selection.AutoFilter
End Sub