verileri ters sıralama

[tiago2]

dikey olarak sıralanmış verileri tam tersi olarak nasıl dizebilirim.

örn

a
b
c
d

verileri
d
c
b
a

olacak. not: veriler düzenli değil bu nedenle sırala yapmam işe yaramıyor.

 

[BG]

dikey olarak sıralanmış verileri tam tersi olarak nasıl dizebilirim.

örn

a
b
c
d

verileri
d
c
b
a

olacak. not: veriler düzenli değil bu nedenle sırala yapmam işe yaramıyor.

aktif hücreyi sıralama yapmak istediğiniz sütunda herhangi bir yere tıklayarak, standart araç çubuğu üzerinde bulunan Z-A (azalan sıralama) butonuna tıklamayı tekrar denermisiniz, aksi halde lütfen dosyanızı ekleyin.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Option Base 1
Sub Tersten()
Dim i, j, Son As Long
Son = [A65536].End(3).Row
Dim Dizi() As String
ReDim Preserve Dizi(Son)
For i = 1 To Son
     Dizi(i) = Cells(i, "A")
Next i
For i = Son To 1 Step -1
    j = j + 1
    Cells(j, "A") = Dizi(i)
Next i
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

Option Explicit
 
Sub TERSTEN_SIRALA()
    Dim SATIR As Long
    SATIR = [A65536].End(3).Row
    Application.ScreenUpdating = False
    If SATIR >= 2 Then
    Range("B1") = "1"
    Range("B1").AutoFill Destination:=Range("B1:B" & SATIR), Type:=xlFillSeries
    Range("A1:B" & SATIR).Sort Key1:=Range("B1")
    Columns("B:B").ClearContents
    End If
    Application.ScreenUpdating = True
End Sub