Çözüldü Sütunda renklendirilmiş hücreler en üstte olsun

[sirkülasyon]

Değerli üstadlar

S sütununda (3:1057 arası)
AG sütununda (3:1057 arası)
AU sütununda (3:1057 arası)
renklendirilmiş hücreler her zaman en üstte olabilmesi için nasıl bir makro yazılması lazım?
Yardımcı olabilir misiniz?

 

[metehan8001]

Sub Sari_Renk()
''Hücre rengi sarı olan alanlar
With Worksheets("Terfi Bilgi Girişi")
son = Cells.SpecialCells(xlCellTypeLastCell).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add(Range("S3:S" & son), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
.Sort.SortFields.Add(Range("AG3:AG" & son), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
.Sort.SortFields.Add(Range("AU3:AU" & son), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
        .Sort.SetRange Range("A2:BE" & son)
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
End With
MsgBox "İşlem Tamam", vbInformation + vbMsgBoxRtlReading, "Feyzullah"
End Sub

 

[sirkülasyon]

Sayın metehan8001
Teşekkür ederim