Sütundaki Verileri Sıralama Yardım

[hakana.]

Arkadaşlar ekte göndermiş olduğum sayfadaki verileri sıralamak istiyorum. Bana yardımcı olabilirmisiniz. Artan azalan sıralama yaptığımda. Örnek TR1 A1 in altına TR1 A10 geliyor ben TR1 A2 nin gelmesini istiyorum. Yardımlarınızı bekliyorum. Kolay gelsin...

 

[fedeal]

TR1 A2 değerini TR1 A02 olarak girerseniz dogru sıralayacaktır.(1..9 arası degerleri)elinizdeki liste varda sıralatmak istiyorsanız degerleri bu şekile çevirecek makrolu çözüm düşünülebilir.

 

[fedeal]

ekte makrolu çözüm iyi çalışmalar.

 

[hakana.]

fedeal arkadaşım ilgin için teşekkürler... Yanlız ben birşey söylemeyi unuttum. bu sıralamayı yaparken sıralama yaptığı sütunun yanında ki diğer sütunlarında sıralamasını yapmasını istiyorum. Yani sırası değişmeden... Örnek dosyayı gönderiyorum...

 

[fedeal]

Sub b()
For I = 1 To Range("A65536").End(xlUp).Row
If Len(Cells(I, 1)) < 7 Then
Cells(I, 27).Value = "=LEFT(RC[-26],5)"
Cells(I, 28).Value = "=RIGHT(RC[-27],1)"
Cells(I, 1).Value = Cells(I, 27).Value & 0 & Cells(I, 28).Value
Cells(I, 27).Value = ""
Cells(I, 28).Value = ""
End If
Next
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
MsgBox "ŞİMDİ ESKİ HALİNE DÖNSÜN.."
For y = 1 To Range("A65536").End(xlUp).Row
Cells(y, 27).Value = "=LEFT(RC[-26],5)"
Cells(y, 28).Value = "=RIGHT(RC[-27],2)"
Cells(y, 1).Value = Cells(y, 27).Value & CDbl(Cells(y, 28).Value)
Cells(I, 27).Value = ""
Cells(I, 28).Value = ""
Next
End Sub

Bu şekilde olan kodumuzun kırmızı olan sütun harflerini degiştirmeniz yeterli

yani
Columns("A:E").Select
Bu kodu o satırla degiştirirseniz a:e satırlarını sıralayacaktır.

 

[hakana.]

Teşekkürler Arkadaşım ...

 

[fedeal]

Teşekkürler Arkadaşım ...

ricaederim iyi geceler.