3 Yazılı Notundan Max Notun Sıra Numarasını bulmak ?

[cennte]

3 Yazılı 2 Sözlü notu yazdırtıyorum . Maksimum notu buluyorum ancak maksimum notun sıra numarasını nasıl bulabilirim. ?

Sıra numaraları en solda verilmiştir.

Resim : http://c1203.hizliresim.com/v/9/3cfyj.png

 

[Murat OSMA]

Formülle de yapılabilir ama formüllerle pek aram yok, bu nedenle makro ile çözüm önereceğim..
Bu kodu sayfanın kod kısmına yapıştırın ve N7 hücresini çift tıklayın...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Range
    If Target.Address(0, 0) = "N7" Then
    For Each i In Range("E4:I13")
    If i.Value = [N5].Value Then [N7].Value = i.Row - 3
    Next i: End If: Set i = Nothing: Cancel = True
End Sub

 

[Merhum İdris SERDAR]

.

Resim yerine örnek Excel dosyanızı ekleseydiniz, daha iyi olurdu. Bizi dosya hazırlama zahmetinden kurtarırdınız.

Diğer bir husus: eşit birden fazla max ve min notlar olursa ne olacak?

Benzeyen olmadığı varsayılarak bir örnek dosya ekledim.

.

 

[Murat OSMA]

Resimdeki örnekte benzeyen bir kaç not var, üzerinde çalıştığınız dosyayı gönderin lütfen...
Ayrıca Sn. yurttaş'ın da dediği gibi; "Diğer bir husus: eşit birden fazla max ve min notlar olursa ne olacak*" ?

 

[cennte]

doğru sölüyorsunuz ona göre ayarlamam lazım