Renklere göre sıralama ?

[Gorarr]

Selamalar yapmaya çalıştığım B sütunundaki renklere göre sıralama yapmak. renk sırası önemli değil. tabi bunu kod ile yapmak istiyorum.

Konu ile ilgili 4 başlık buldum ama malesef işimi görecek kodlara ulaşamadım.


Yardımlarınızı bekliyorum. şimdiden çok çok teşekkürler...

 

[uzmanamele]

merhaba

makro kaydet yöntemiyle gerekli kodları elde edebilirsiniz.

Sub RenkSırala()

    ActiveWorkbook.Worksheets("sayfa1").AutoFilter.Sort.SortFields.Clear
    
    ActiveWorkbook.Worksheets("sayfa1").AutoFilter.Sort.SortFields.Add(Range( _
        "B2:B20"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
        RGB(0, 176, 240)
    ActiveWorkbook.Worksheets("sayfa1").AutoFilter.Sort.SortFields.Add(Range( _
        "B2:B20"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
        RGB(216, 216, 216)
    ActiveWorkbook.Worksheets("sayfa1").AutoFilter.Sort.SortFields.Add(Range( _
        "B2:B20"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
        RGB(255, 255, 0)
    With ActiveWorkbook.Worksheets("sayfa1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Gorarr]

Hocam teşekkür ederim. Ama bu kodlar bende hata verdi. örnek dosya üzerine eklemeniz mümkünmü aceba. iyiakşamlar..

 

[uzmanamele]

Hocam teşekkür ederim. Ama bu kodlar bende hata verdi. örnek dosya üzerine eklemeniz mümkünmü aceba. iyiakşamlar..

merhaba
profilinizde ofis 2007 yazıyor, 2003 kullanıyorsanız kodlar çalışmaz.

 

[Merhum İdris SERDAR]

Selamalar yapmaya çalıştığım B sütunundaki renklere göre sıralama yapmak. renk sırası önemli değil. tabi bunu kod ile yapmak istiyorum.

Konu ile ilgili 4 başlık buldum ama malesef işimi görecek kodlara ulaşamadım.


Yardımlarınızı bekliyorum. şimdiden çok çok teşekkürler...

.

Dosyanız ekte.

.

 

[Gorarr]

Hocam desktopda 2003 ama laptopda 2007 yüklü malesef ikisindede "run time error" diyor "debug" dediğimde aşağıdaki satırı sarı gösteriyor.

ActiveWorkbook.Worksheets("sayfa1").AutoFilter.Sort.SortFields.Clear

office 2007 ile ilgili olabilirmiki. olmazsa uninstall edip tekrar kurayım. o şekilde denicem birde.

yardım için tekrar teşekküler..

 

[Gorarr]

yurttas hocam ellerinize sağlık tam istediğim gibi olmuş. nekadar teşekkür etsem az öyle çok işime yarayacakki.

uzmanamele hocam sizde sağolun vakit ayırıp yardımcı olduğunuz için.

 

[uzmanamele]

merhaba

kod bende çalışıyor.

not:
syn yurttas'ın çözümü zekice, 2003 de de kullanabilirsiniz. onu tavsiye ederim