Doğru sıralama!

[ofbalki]

Arkadaşlar, ekteki dosyada yapılan sıralamayı hangi kodla değiştiririm.

Sayıları doğru sıralaması gerekir.

Lütfen yardım.

 

[Mahmut Bayram]

Şu kodlarınızı

Range("B2:I51").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

aşağıdaki şekilde değiştirir misiniz.

 Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers

 

[ofbalki]

Sevgili Mahmutt kardeşim, verdiğiniz kod hata verdi, Selection yerine Range("B2:I51") yazdığımda mükemmel çalıştı. Öneriniz için teşekkür ederim.

Ayrıca sizi tekrar aramızda görmek çok güzel.

Selam ve Dua ile...

 

[Mahmut Bayram]

Bende hata vermemişti.
Hallettiğinize sevindim Ömer Faruk hocam.
Buralardayım gene.
Site ve kitap çalışmalarım sebebiyle pek görüşemiyoruz.
Selam ve dua ile...:hey: