Listboxta Açılınca Tarihi Göre Sıralama

[Astalavista58]

Merhabalar hayırlı geceler. Bir form düzenliyorum, listbox her açıldığında, "G" sütunundaki tarihleri yeniden eskiye doğru sıralanmasını istiyorum ama bir türlü sonuca varamadım yardımcı olabilir misiniz.

 

[Muzaffer Ali]

Merhaba..

aktifSilahlarıListele kodlarını silin yerine aşağıdaki kodu ekleyin.

Private Sub aktifSilahlarıListele()
    Sheets("AktifSilahsızlar").Select
    Dim SonSatir As Long

    SonSatir = Cells(Rows.Count, "A").End(xlUp).Row
    listSilahsiz.ColumnCount = 9
    listSilahsiz.RowSource = "A2:I" & SonSatir
    listSilahsiz.ColumnWidths = "40;70;80;70;100;200;60;;75;200"
    
    With ThisWorkbook.Worksheets("AktifSilahsızlar").Sort
        .SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortTextAsNumbers
        .SetRange Range("A1:I33")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

 

[Astalavista58]

Merhaba..

aktifSilahlarıListele kodlarını silin yerine aşağıdaki kodu ekleyin.

Private Sub aktifSilahlarıListele()
    Sheets("AktifSilahsızlar").Select
    Dim SonSatir As Long

    SonSatir = Cells(Rows.Count, "A").End(xlUp).Row
    listSilahsiz.ColumnCount = 9
    listSilahsiz.RowSource = "A2:I" & SonSatir
    listSilahsiz.ColumnWidths = "40;70;80;70;100;200;60;;75;200"
   
    With ThisWorkbook.Worksheets("AktifSilahsızlar").Sort
        .SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortTextAsNumbers
        .SetRange Range("A1:I33")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

Sayın Muzaffer Bey biraz geç gördüm, size çok teşekkür ediyorum, elinize sağlık Allah razı olsun

 

[Muzaffer Ali]

Allah hepimizden razı olsun. Kolay gelsin.