excel yardım ricası

arkadaşlar merhaba,
asagıdaki resimdeki goruldugu gibi bir dosyam var.

bu rakamları soldan sağa kücükten büyüğe renklerini bozdmadan sıralamak istiyorum.

nasıl yapabilirim. bir türlü beceremedim.

yardımcı olabilir misiniz ?

Örnek dosya yollarsanız yardımcı olabilirim.

hocam cok teşekkürler
pm gonderiyorum

Merhabalar,
Gönderdiğiniz dosyaya göre bu kodları kullanabilirsiniz..

Sub ExcelTurkey()
    Dim i&
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 _
        Key:=Range("A" & i & ":L" & i), SortOn:=0, Order:=1, DataOption:=0
        With ActiveWorkbook.Worksheets("Sheet2").Sort
            .SetRange Range("A" & i & ":L" & i)
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
    Next i
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    i = Empty
End Sub

hocam yukartdaki satırı kabul etmedi hata verdi. netten araştırdım add2 kısmını sadece Add olarak degiştirdim.

duzeldi. cok super çalışıyor.

elinize sağlık

r10+ladım

Rica ederim.. Faydalı olabildiğine sevindim..

İyi günler.