Sayfadaki verileri userform üzerinden commandbutton ile sıralama

[EmreSıdan]

Herkese Merhaba.
Öncelikle sıfır vba bilgisi ile bu forum sayesinde 3 haftada, az buçuk vbanın kulağından tutar oldum. Herkese teşekkür ediyorum.
Yeni başlayan arkadaşlar, lütfen yılmayın. Hazır #evdekal ıyoruz. Biraz çaba ve araştırma ile sonuç alınıyor.

Fakat bir konunun içinden çıkamıyorum. O da şu;
Ekte sunduğum çalışmada; Userform8 içerisindeki butonlar ile "GüncelDosyalar" sayfasına kalem kalem işlerimi (veri) işliyorum,değiştiriyorum.
Fakat bu işleri sıralayamıyorum. Yani Yakın tarihli (yeni eklediğim veya güncellediğim) işi diğer (eski tarihli)işlerin üzerinde, "GüncelDosyalar" sayfasında sıralamıyorum. Dolayısıyla listbox1'de üst sırada gösteremiyorum.

"Sırala" butonum işe yaramıyor. Yardımcı olabilirseniz sevinirim.
Sağlıklı günler diliyorum.

https://dosya.co/y7099i27ekdj/AnaSayfa.xlsm.html

Not: Dosyayı kırptım kırptım buraya yükleyemedim. Büyükmüş.

 

[Muzaffer Ali]

Merhaba.
Sırala butonundaki kodları aşağıdakiler ile değiştirin.

Private Sub CommandButton8_Click()
    Range("A2:J65536").Sort key1:=Range("I1"), ORDER1:=xlAscending
End Sub

UserForm_Initialize kodlarını çok uzatmışsınız onları da aşağıdakiler ile değiştirin.

Private Sub UserForm_Initialize()
    Dim SatirSay As Integer
    
    SatirSay = Sheets("GüncelDosyalar").Cells(1, 1).End(xlDown).Row
    
    ComboBox1.RowSource = "GüncelDosyalar!A1:A" & SatirSay
    ComboBox1.ListIndex = 0

    'Liste Kutusunu Doldurma

    ListBox1.ColumnCount = 10
    ListBox1.ColumnWidths = "30;20;20;200;200;40;90;60;50;800;"
    ListBox1.RowSource = "GüncelDosyalar!A1:J" & SatirSay
    
    'ListBox2.RowSource = "Fihrist!A1:F1000"
    ListBox2.ColumnCount = 6
    ListBox2.ColumnWidths = "0;40;30;30;90;90"

    'ListBox3.RowSource = "İşler!B1:K1000"
    ListBox3.ColumnCount = 10
    ListBox3.ColumnWidths = "0;40;40;100;400;40;40;40;40;40"
End Sub

 

[EmreSıdan]

Çok teşekkür ediyorum üstat.

 

[EmreSıdan]

Fakat bir sıkıntım var. Sıralama güne göre oluyor.
Yani;
01.05.2020
01.08.2020
02.05.2020
şeklinde sıralıyor.

 

[EmreSıdan]

Sheets("GüncelDosyalar").Cells(sonsatir, 9).Value = CDate(TextBox9.Text)
ile sorun çözüldü. 3 saat sürdü ama çözüldü

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.