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

[Feylosof]

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

 

[Feylosof]

Konu güncel olup, çözüm konusunda desteğinizi beklemekteyim.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları formun kod kısmına kopyalayın.

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

 

[Feylosof]

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.

 

[Muzaffer Ali]

Bende hata vermiyor.
Dosya ekte bir de bu dosyayı deneyin.

 

[Muzaffer Ali]

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?

 

[Feylosof]

@Muzaffer Ali

 

[Muzaffer Ali]

5. mesajdaki dosyayı denediniz mi?
Yine de hata veriyorsa

.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=ArtanAzalan, CustomOrder:=(Liste)

satırını aşağıdaki ile değiştirin.

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

Yine olmazsa
Aşağıdaki satırı deneyin.

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

 

[Feylosof]

5. mesajdaki dosyayı denediniz mi?
Yine de hata veriyorsa

.SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=ArtanAzalan, CustomOrder:=(Liste)

satırını aşağıdaki ile değiştirin.

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

Yine olmazsa
Aşağıdaki satırı deneyin.

.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]

Bende sorunsuz çalışıyor. Bir de başka bilgisayarda ve farklı Office versiyonunda deneseniz iyi olur. Belki sıkıntı bilgisayarınızdadır.