listbox tarihe göre sıralama

[excel-emrah]

arkadaşlar herkese iyi akşamlar dilerim

okulumdaki bitirme projesi için acemi bir vba çalışması yapıyorum ve bilen için kolay ama benim için oldukça zor bir problemimi size danışmak istiyorum

bu excel tablom ve bu tabloda siparişleri tutuyorum

buda program arayüzüm şimdi bu bölümde eklediğim listbox da excelden çektiğim verileri ama sadece çekebiliyorum göster butonu ile

göster butonunun kodu şu şekilde

Private Sub goster_Click()

ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = 50
ListBox1.ColumnHeads = True

ListBox1.RowSource = "siparişler!a2:f" & Sheets("siparişler").[a65536].End(xlUp).Row
End Sub

benim istediğim ise göster butonuna bastığımda verilerin teslim tarihine göre sıralanmasını istiyorum sorunum bu umarım açıklayıcı olmuşumdur yardım eden herkese şimdiden çok teşekkür ederim

iyi çalışmalar

 

[excel-emrah]

up up up up

 

[muygun]

Merhaba;
Bir modüle;

Sub sırala_artan()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("siparişler").Select
sırasütun = "c2"
Range("A2:f65536").Select
Selection.Sort Key1:=Range(sırasütun), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("a2").Select
Application.ScreenUpdating = True
End Sub

kodlarını yerleştir.
Listbox'a kodları aldırdığın butonun kodlarını;

Private Sub CommandButton1_Click()
Call sırala_artan
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = 50
ListBox1.ColumnHeads = True
ListBox1.RowSource = "siparişler!a2:f" & Sheets("siparişler").[a65536].End(xlUp).Row
End Sub
şeklinde düzenle.

İyi çalışmalar.

 

[excel-emrah]

çok teşekkür ederim yardımlarınız için