A Sütunundaki Verileri C Sütununda Sıralama isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Deneme()
Dim Dizi As Variant
Dizi = ActiveSheet.Range("A1:A12").Value
Sirala Dizi
End Sub
Private Sub Sirala(Dizi As Variant)
Dim i As Integer, j As Integer, TempValue As Variant
For i = LBound(Dizi) To UBound(Dizi) - 1
For j = i + 1 To UBound(Dizi)
If Dizi(i, 1) < Dizi(j, 1) Then
TempValue = Dizi(j, 1)
Dizi(j, 1) = Dizi(i, 1)
Dizi(i, 1) = TempValue
End If
Next j
Next i
ActiveSheet.Range("C1").Resize(UBound(Dizi, 1)).Value = Dizi
End SubAçıklama
A sütunda karışık olarak yazılmış bulunan verileri C sütununda sıralamak için bu kodu kullanabilirsiniz.Faydalanılması temennisiyle
