numaraları sıralama

[goklerhakimi]

bir satirda belli sayida sıralama var, 1'den başlayıp sutun sayısına kadar gidiyor. bunlar icinde ayni olanlar var ama aradaki bazı rakamlar boş. kalan sayıların bu boş sayılardan degerini dusurmesini istiyorum. soyle ki:
her hucreye bir sayi dusmek uzere
1-2-1-4-5-2-7-8-1
seklinde sıralama var. bu sıralamada 3 ve 6 eksik, bu yuzden bosluk yaratiyor.
şöyle olmalı:
1-2-1-3-4-2-5-6-1

 

[merken]

ben anlamadim, anlamayan da cok olmustur sanirim
daha aciklayici olursaniz yardimci olabiliriz..

 

[goklerhakimi]

merhaba,
ekteki dosya açıklamama yardımcı olmazsa tekrar haber verin lütfen.

 

[veyselemre]

a1 den başlamak üzere satırı dediğiniz gibi sıralar.

Sub dene()
    mx = 1
    [a1].Select
basla:
    If Selection.Value - mx > 1 Then
        Set alan = Range(Selection, Selection.End(xlToRight))
        alan.Replace Selection.Value, mx + 1
    End If
    mx = WorksheetFunction.Max(Range([a1], Selection))
    Selection.Offset(, 1).Select
    If Selection.Value <> "" Then GoTo basla
    Set alan = Nothing
End Sub

 

[zaxaza]

Merhaba herkese. Bir sütundaki verileri tersten aşağıdan yukarı doğru nasıl sıralayabiliriz? Dosyada örnek verdim yapmak istediğim şeye. İlgilenenlere teşekkürler.

 

[Orion1]

Sıralanacak alanı seçiniz.
Toolbarda ZA Butonuna tıklayın işlem tamam.

 

[zaxaza]

Sıralanacak alanı seçiniz.
Toolbarda ZA Butonuna tıklayın işlem tamam.

yapmak istediğim bu değil, dosyada örnek verdim.Yine de teşekkürler.

 

[Orion1]

yapmak istediğim bu değil, dosyada örnek verdim.Yine de teşekkürler.

Dosyanızda aşağıdaki açıklamayı buraya yazıyorum.Soruyu doğru anladığımı sanıyorum.

D sütunundaki verileri nasıl terten sıralayabiliriz?Teşekkürler.

 

[zaxaza]

Dosyanızda aşağıdaki açıklamayı buraya yazıyorum.Soruyu doğru anladığımı sanıyorum.

Yok efendim soruyu doğru anlamamışsınız.

"Bir sütundaki verileri tersten aşağıdan yukarı doğru nasıl sıralayabiliriz? Dosyada örnek verdim yapmak istediğim şeye."

demiştim. Ayrıca dosyaya bakınca yandaki sütun incelendiğinde sayıların büyükten küçüğe ya da küçüten büyüğe değil, aşağıdan yukarı (terten) sıralandığını görebiliriz.

 

[Orion1]

Merhaba.
Haklısınız küçükten büyüğe veya büyükten küçüğe sıralam değilmiş .Özür dilerim.
F sütununa sıralıyor.
Aşağıdaki kod işinizi görür sanırım.

Sub sirala()
Dim sonsat As Long, i As Long, sat As Long
Sheets("Sayfa1").Select
sonsat = Cells(65536, "D").End(xlUp).Row
sat = 10
Range("F10:F65536").ClearContents
If sonsat < 10 Then Exit Sub
Application.ScreenUpdating = False
For i = sonsat To 10 Step -1
    Cells(sat, "F").Value = Cells(i, "D").Value
    sat = sat + 1
Next i
Application.ScreenUpdating = True
MsgBox "SIRALAMA YAPILDI..!!", vbOKOnly, Application.UserName
End Sub

 

[zaxaza]

Tamam çok teşekkürler ilgilendiğiniz için.

 

[Orion1]

Rica ederim.
İyi çalışmalar.