Makroda EğerSırala Fonksiyonu

[meleklerim]

Arkadaşlar
Ekte göreceğiniz dosyada olduğu gibi toplam 6 tane dersten 30 öğrencinin sınavlardan aldıkları notları gösteren tablo var.
Ben Y1 (Sınav No) hücresine 1 yazdığımda tüm tabloda öğrencileri 1. sınavdaki notlarına göre (büyükten küçüğe) ; eşitse adına göre(a dan z ye) sıralamasını istiyorum.
*2 yazarsam aynı işlemleri 2. sınava göre......
* toplam 6 sınav var

yardımcı olacaklara şimdiden teşekkürler

http://dosya.co/vh7sfdmo5l3y/sırala_makrosu.xls.html

 

[veyselemre]

Sub sirala()
    For Each huc In Array("C7", "L7", "U7", "C40", "L40", "U40")
        With Range(huc)
            .Resize(30, 7).Sort _
                Key1:=.Offset(0, [y1]), Order1:=xlDescending, _
                Key2:=.Offset(0, 0), Order2:=xlAscending
        End With
    Next huc
End Sub

 

[meleklerim]

tam istediğim gibi olmasa da beni 6 ayrı makro kaydetmekten kurtardın arkadaşım, çok sağol.

tam istediğim
sınav numarasına 1 yazdığımda makronun çalışması. Başka herhangi bir butona basmadan çalışmasını istiyordum
şimdi 1 yazıp ayrıca sırala makrosunu atadığım butona basıyorum.

Tekrar çok çok teşekkürler