iç içe sorting makro kodu

[Colibri]

Merhabalar,

Aşağıda 2 tane dosya ekledim biri sorted biri nonsorted olmak üzere nonsorted olanı VBScript ile sort ederek nasıl Sorted hale çevirebilirm mesela ilk A/S ye göre tüm satırları sortlasın sonra A/S ile sortlanmış olanlar kendi içinde fiyat oranına göre sortlansın sonra MK/kod diğer 2 sortun içerisine sortlansın,(Zaten sorted ta verdiğim gibi oluyor.) yardımcı olursanız sevinirim...(alfabetik küçükten büyüğe...)

 

[Huseyinkis]

Merhabalar,

Aşağıda 2 tane dosya ekledim biri sorted biri nonsorted olmak üzere nonsorted olanı VBScript ile sort ederek nasıl Sorted hale çevirebilirm mesela ilk A/S ye göre tüm satırları sortlasın sonra A/S ile sortlanmış olanlar kendi içinde fiyat oranına göre sortlansın sonra MK/kod diğer 2 sortun içerisine sortlansın,(Zaten sorted ta verdiğim gibi oluyor.) yardımcı olursanız sevinirim...(alfabetik küçükten büyüğe...)

Makro Kaydet tuşu ile çıkan sonuç

Sub Makro2()

    Range("A1:E25").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C2:C25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E2:E25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E25")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Colibri]

Makro Kaydet tuşu ile çıkan sonuç

Sub Makro2()

    Range("A1:E25").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C2:C25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E2:E25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E25")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Selamlar yeniden, VBS ile denediğim zaman "Add Key:=Range" kısımlarındaki := olan kısımda syntax hatası verioyor nasıl düzeltebilirim. Teşekkürler...

 

[Colibri]

Arkadaşlar Bu verdiklerimi VBScript olarak gösterebilir misiniz? VBA kod VBS olarak çalışmıyor malesef Lütfen Yardım!!!