Veriyi bütün düşünerek sıralama yapmak

[kitreli]

Arkadaşlar ekte ki çaılşma sayfasında satırları dosya no sütununa göre küçükten büyüğe sıralama yapmak istediğim zaman bana ilk rakama göre sıralama yapıyor..

1.. dosya numaralarını ilk rakama göre değilde bir bütün sayı olarak sıralama yapmasını istiyorum..

2.. bu sıralamayı yaparken **.77 **.34 olan sayıları ayrı olarak sıralama imkanı olurmu.?


Teşekkür ederim..

 

[Ömer]

Merhaba,

Bu şekilde deneyin..

Sub Sırala()
Dim i As Long, son As Long
son = [A65536].End(3).Row
Application.ScreenUpdating = False
Columns("A:A").NumberFormat = "General"
    For i = 2 To son
        Cells(i, "d") = Split(Cells(i, "a"), ".")(1)
        Cells(i, "a") = Replace(Cells(i, "a"), ".", "")
    Next i
Range("A2:D" & son).Sort Range("A2")
Columns("A:A").NumberFormat = "@"
    For i = 2 To son
        Cells(i, "a") = Left(Cells(i, "a"), Len(Cells(i, "a")) - _
        Len(Cells(i, "d")))
        Cells(i, "a") = Cells(i, "a") & "." & Cells(i, "d")
    Next i
Columns("D:D").ClearContents
Application.ScreenUpdating = True
End Sub

.

 

[kitreli]

Ömer bey bu kodları nereye ekleyeceğiz... birde benim dosyamda bu sütunun yeri değiştiği zaman da çalışacak mı ? Örneğin dosya no sütunundan önce sıra numarası sütunu eklenirse vs..

 

[kitreli]

Arkadaşlar;
hala bu konu ile cevap alamadım. ayrıca yeni satırlar eklediğim zaman sıralama yine aynı şekilde ilk rakama göre oluyor....

lütfen acil yardım ederseniz sevinirim..

 

[Ömer]

Merhaba,

Eki inceleyin..

.