Satır Sıralama

Bugun genis bir yazimi olacagini dusunsemde basit bir konu aciklamak istiyorum, amacimiz siralama yapmak fakat sadece satiri siralamak istiyoruz. Ornegimizde sayilsal loto icin arkadaslarimizdan karisik sekilde aldigimiz 6 sayiyi siralamak olsun; ornek verilerimiz;

Oncelikle bu sayilari excel menuleri ile nasil siralayabiliriz buna bakalim daha sonraki adimlarda da fonksiyonla nasil vb ile nasil yapabiliriz diye inceleyelim.

Menu ozellikleriyle satir siralama;

  • Oncelikle suzmek istedigimiz satiri secip Veri/Data menusunden sirala butonunu tikliyoruz ve ayni secimle siralamasini istiyoruz,
  • Daha sonra asagidaki siralama secenekleri penceresini acmaniz gerekiyor,

Yukaridaki siralama penceresindeki isaretli bolumden secim penceresini acabilirsiniz.

  • Siralama secenekleri penceresinden soldan saga sirala secenegini seciyoyuz, tamam secenegiyle onayladigimizda siralama islemimiz gerceklesiyor.

Formul Kullanarak satiri siralama;

Formul ile 6 hucrelik satirimizi siralayabilmek icin soldan saga 6 hucre secerek, buraya satirimizi aralik verip kucukten buyuge bir dizi olusturmasi icin bir dizi formulu girecegiz ve CTRL + SHIFT + ENTER kombinasyonu ile formulumuzden cikarak secili 6 hucreye dizi formulumuzun uygulanmasini saglayacagiz.

=SMALL(A2:F2,{1,2,3,4,5,6})

Visual Basic Uygulamasi ile Satiri siralama;

Burada uygulama alanimiz belirledigimiz ilk satirdan, verilerin uzunlugu kadar olan bolumu secmesi ve siralama islemini icin oryantasyonu xlLeftToRight seklinde secmek olacak.

kodun 6 hucre icin yapildigini dikkate alarak asagidaki kodlari inceleyebilirsiniz.

Sub satiri_siralama()
Dim satir As Long
Dim ilk_satir As Long
Dim son_satir As Long

With ActiveSheet
    ilk_satir = 2 'baslangic satirininizin sayisini belirtin, baslik kullanmissiniz 2 gibi
    son_satir = .Cells(.Rows.Count, "A").End(xlUp).Row
    For satir = ilk_satir To son_satir
        With .Cells(satir, "A").Resize(1, 6)
            .Sort Key1:=.Columns(1), _
                Order1:=xlAscending, _
                Header:=xlNo, _
                OrderCustom:=1, _
                MatchCase:=False, _
                Orientation:=xlLeftToRight
        End With
    Next satir
End With

End Sub

Ornek dosyadan incelemenizi tavsiye ederim. iyi calismalar.

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Satır Sıralama” için 1 yorum

  1. sıralama konusunda merak ettiğim bir konu var acaba excel de muhasebe kodları sıralanabilirmi?
    şöyle ki 100,200,300 gibi sıralanma zaten filtreleme ile oluyor ama asıl 100 1,120 1,120 2 gibi olan kodları peşpeşe nasıl sıralaybiliriz?

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


2 + 5 =