Sıralama

[ASLAN7410]

Merhaba arkadaşlar.

Aşağıdaki kod ile personel listemde tek bir sütuna göre sıralama yapıyorum, bu kod arasına sıralama olarak önce E sütunu, F sütunu, C sütunu ve D sütununa göre sıralama yapmak istiyorum.
Kod içerisine ekleme yapmaya çalıştım ancak kod yazmaktan anlamadığım için başaramadım, yardım edecek arkadaşlara teşekkür ederim.

Sub sırala()
son = Sheets("Sayfa1").[e65536].End(3).Row
Range("B2:L" & son).Sort Key1:=[e2], Order1:=xlDescending
Cells(1, 5).Activate
End Sub

 

[Orion1]

Deneyiniz.
Azalan şekilde sıralama yapar.

Sub sırala()
son = Sheets("Sayfa1").[e65536].End(3).Row
Range("B2:L" & son).Sort Key1:=[d2], Order1:=xlDescending
Range("B2:L" & son).Sort Key1:=[e2], Order1:=xlDescending, key2:=[F2], _
        order2:=xlDescending, key3:=[C2], order3:=xlDescending
Cells(1, 5).Activate
End Sub

 

[ASLAN7410]

Günaydın Evren Bey, ilginiz için çok teşekkür ediyorum, kusura bakmayın yanlış kodu eklemişim, benim istediğim artan şekilde sıralama yapmak istemiştim.

Sıralama istediğim sütun sırasıyla E, F, C ,D olmasını istiyorum.

Sizin eklemiş olduğunuz kodun içerisindeki xlDescending kısmı xlAscending şekilde değiştirerek sayfaya uyguladım ancak sayfa iyice karıştı.

Sub sırala()
son = Sheets("Sayfa1").[b65536].End(3).Row
Range("B2:Q" & son).Sort Key1:=[b2], Order1:=xlAscending
Cells(1, 5).Activate
End Sub

Sub sırala()
son = Sheets("Sayfa1").[e65536].End(3).Row
Range("B2:L" & son).Sort Key1:=[e2], Order1:=xlAscending
Range("B2:L" & son).Sort Key1:=[ef], Order1:=xlAscending, key2:=[c2], _
        order2:=xlAscending, key3:=[d2], order3:=xlAscending
Cells(1, 5).Activate
End Sub

 

[veyselemre]

    With Range("B2:L" & [e65536].End(3).Row)
        .Sort Key1:=[c2], Order1:=xlAscending, Key2:=[d2], Order1:=xlAscending
        .Sort Key1:=[e2], Order1:=xlAscending, Key2:=[f2], Order2:=xlAscending
    End With

 

[ASLAN7410]

Yardım eden arkadaşlara teşekkürler, hayırlı çalışmalar.

 

[ASLAN7410]

    With Range("B2:L" & [e65536].End(3).Row)
        .Sort Key1:=[c2], Order1:=xlAscending, Key2:=[d2], Order1:=xlAscending
        .Sort Key1:=[e2], Order1:=xlAscending, Key2:=[f2], Order2:=xlAscending
    End With

Sayın veyselemre yukarıdaki kodun çalışması uzun sürüyor, bunu nasıl hızlandırabiliriz.

 

[veyselemre]

Kodun hızla bir alakası yok, standart excel sıralaması yapıyor. Çalışmanızda formül çok kullanıyorsanız onlar yavaşlatıyor olabilir.

kodların başına

Application.Calculation =xlCalculationManual

sonuna

application.Calculation=xlCalculationAutomatic

ekleyerek deneyiniz.

 

[ASLAN7410]

Çok teşekkür ederim, hayırlı çalışmalar.