Sıralama yaptırdıgımda kutudaki değere gore degil,kutunun içinin rengine göre sıralıy

[rzayildirim]

Arkadaslar.
Sıralama yaptırdıgımda kutudaki değerler sıralanırken, kutunun içindeki renkler sabıt kalıyor degerlerı ıle yer değiştirmiyor. bunlar ıkısı grup olarak yerdegistiremezmı. asagıda kodlar:
Bana yardım edersenız sevınırım.

Sub Düğme1_Tıklat()
Dim cn As Object, rs As Object

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};dbq=" & _
ThisWorkbook.FullName

Set rs = cn.Execute( _
"SELECT * FROM [Sayfa5$A1:E1000] ORDER BY [BOLGE], [SAHA], [KABLO], [BASVURU_TARIHI]")

[A2:M1000].ClearContents
[A2].CopyFromRecordset rs

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

End Sub

 

[Ferhat Pazarçevirdi]

Anlaşılmıyor. Bahsettiğiniz "Kutu" nedir ? Excel hücresi mi?

 

[rzayildirim]

pardon. evet excel hucresi. her satırı farklı renkle gosterebiliriz ya belli bir amac dogrultusunda. ama sıralama yapıldıgı zaman o satıra anlam katan renk, veri ile yer değişştirmiyor