Soldan Sağa sıralama

[Eser Gökay]

Arkadaslar merhabalar


soldan sağa her hücrede bir sayı olmak üzere sayılar dağınık olarak yer almakta. toplamda 200 satırlık bir alandan bahsediyorum. bunları soldan sağa bir defada küçükten büyüğe nasıl sıralayabilirim.

 

[Orion1]

Aşağıdaki kod işiniz görür.

Sub soldan_saga_sirala()
Dim sat As Long, sons, s As Integer, x As Variant
For sat = 1 To Cells(65536, "A").End(xlUp).Row
    sons = Cells(sat, 256).End(xlToLeft).Column
    For s = 1 To sons - 1
        For j = s + 1 To sons
            If Cells(sat, s).Value > Cells(sat, j).Value Then
                x = Cells(sat, j).Value
                Cells(sat, j).Value = Cells(sat, s).Value
                Cells(sat, s).Value = x
            End If
        Next j
    Next s
Next sat
MsgBox "işlem tamamlandı.."
End Sub

 

[Eser Gökay]

üstadım siz yazacaksınız da işimi görmeyecek mi ? çok teşekkür ediyorum. çok makbule geçti. iyi çalışmalar.

 

[Orion1]

üstadım siz yazacaksınız da işimi görmeyecek mi ? çok teşekkür ediyorum. çok makbule geçti. iyi çalışmalar.

Rica ederim.
İyi çalışmalar.