ListBox sırasına göre verileri sıralama

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
439
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
Herkese sağlıklı günler dileğiyle;

ListBoxta bulunan veri sıralamasına göre dosyanın "G" sütununa bakarak satırları sıralamak istiyorum.
Desteğiniz için şimdiden teşekkürler
 

Ekli dosyalar

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
439
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
Konu güncel olup, çözüm konusunda desteğinizi beklemekteyim.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,412
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Aşağıdaki kodları formun kod kısmına kopyalayın.
Kod:
Private Sub CommandButton1_Click()
    Dim Liste As String
    Dim Bak As Integer
    Static ArtanAzalan As Byte
    If ArtanAzalan = xlAscending Then
        ArtanAzalan = xlDescending
        CommandButton1.Caption = "Artan Sırala"
    Else
        ArtanAzalan = xlAscending
        CommandButton1.Caption = "Azalan Sırala"
    End If
    For Bak = 0 To ListBox2.ListCount - 1
        If Liste = "" Then Liste = ListBox2.List(Bak) Else: Liste = Liste & "," & ListBox2.List(Bak)
    Next
    Application.AddCustomList ListArray:=Array(Split(Liste, ","))
    With ThisWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=ArtanAzalan, CustomOrder:=(Liste)
        .SetRange Range("A:G")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
Son düzenleme:

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
439
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
Sayın @Muzaffer Ali öncelikle desteğiniz için çok teşekkür ederim.

.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=ArtanAzalan, CustomOrder:=(Liste)
bu satırda aşağıdaki hatayı verdi.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,412
Excel Vers. ve Dili
2019 Türkçe
Bende hata vermiyor.
Dosya ekte bir de bu dosyayı deneyin.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,412
Excel Vers. ve Dili
2019 Türkçe
Excel versiyonundan kaynaklanıyor olabilir.
Aşağıdaki gibi Sayfa1.Sort.SortFields.Add kod satırını yazıp boşluk tuşuna bastıktan sonra ekran görüntüsünü bana iletir misiniz?
233935
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,412
Excel Vers. ve Dili
2019 Türkçe
5. mesajdaki dosyayı denediniz mi?
Yine de hata veriyorsa

Kod:
.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=ArtanAzalan, CustomOrder:=(Liste)
satırını aşağıdaki ile değiştirin.

Kod:
.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=(Liste), DataOption:=xlSortNormal
Yine olmazsa
Aşağıdaki satırı deneyin.

Kod:
.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Liste, DataOption:=xlSortNormal
 

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
439
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
5. mesajdaki dosyayı denediniz mi?
Yine de hata veriyorsa

Kod:
.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=ArtanAzalan, CustomOrder:=(Liste)
satırını aşağıdaki ile değiştirin.

Kod:
.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=(Liste), DataOption:=xlSortNormal
Yine olmazsa
Aşağıdaki satırı deneyin.

Kod:
.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Liste, DataOption:=xlSortNormal
Evet onu da denedim. Üzgünüm üstadım aynı hata devam ediyor her iki kodda da
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,412
Excel Vers. ve Dili
2019 Türkçe
Bende sorunsuz çalışıyor. Bir de başka bilgisayarda ve farklı Office versiyonunda deneseniz iyi olur. Belki sıkıntı bilgisayarınızdadır.
 
Üst