Tablo Sıralama

[uKiGS]

Merhaba

Not sistemi olan bir tablom var ve ben buna 5 farklı not gireceğim. Ben her öğrenci için not giriyorum ve bunun ortalamasını alıyorum. Ben 2. not girdiğimde A öğrencisi en yüksekse en üstte 3. notu girdiğimde B öğrencisinin ortalaması en yüksek ise en üste çıkmasını istiyorum. Bunun için nasıl bir yol izleyebilirim?

Teşekkürler

 

[YUSUF44]

Öncelikle ortalama için G2 hücresinde aşağıdaki formülü kullanmanızı öneririm:

=ORTALAMA(B2:F2)

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince çıkan sayfaya) yapıştırırsanız B2:F100 aralığındaki hücrelerde değişiklik yaptığınızda istediğiniz gibi sıralamayı yapar. Ancak dikkat ediniz, her değişiklikte ortalama değişeceği için liste baştan sıralanır. Bu nedenle aynı kişiye yan yana birden fazla not gireceğiniz durumda sıralama değiştiği için yanlışlıkla başka kişiye not yazabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:F100]) Is Nothing Then Exit Sub
    son = Cells(Rows.Count, "A").End(3).Row
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("G4"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("A2:G" & son)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

 

[uKiGS]

yardımlarınız için çok teşekkür ederim sayın Yusuf elleriniz dert görmesin