Listede yer alan Takım adına göre en genç yaş ortalaması

[tamer42]

Merhaba,
Ekli dosya "Data" sayfasında Süper Ligde oynayan oyuncuların yaşları mevcut,
Yapmak istediğim en genç yaş ortalamasına sahip olan takımın adını formül ile bulmak

yardımlarınız için şimdiden teşekkürler


iyi Akşamlar.

 

[Greenblacksea53]

Bu şekilde bulabilirsiniz.

 

[tamer42]

Bu şekilde bulabilirsiniz.

Hocam Teşekkürler,
Takım Listesini almadan yapmamız mümkün değil midir?

 

[Greenblacksea53]

Sub EngencTakim()
    Dim Sonsatir As Long
    Dim TakimRange As Range
    Dim Takim As String
    Dim MinAvreaj As Double
    Dim MinTakim As String
        
    Sonsatir = Cells(Rows.Count, "A").End(xlUp).Row
    
    Set TakimRange = Range("D2:D" & Sonsatir)
    

    For Each c In TakimRange
        Takim = c.Value
  
        AverajHesapla = Application.WorksheetFunction.AverageIf(TakimRange, Takim, Range("C2:C" & Sonsatir))
    
        If MinAvreaj = 0 Or AverajHesapla < MinAvreaj Then
            MinAvreaj = AverajHesapla
            MinTakim = Takim
        End If
    Next c
    
    MsgBox "En genç takım: " & MinTakim
    
End Sub

Mödüle ekleyip çalıştırsanız Mesajbox olarak en geç takımı verecektir. Hücreyede yazdırabilirsiniz..

 

[Korhan Ayhan]

Merhaba,

Ofis 365 sürümünde aşağıdaki formülle sonuç alabildim.

=İNDİS(D2:D544;KAÇINCI(MİN(EĞERORTALAMA(D2:D544;D2:D544;C2:C544));EĞERORTALAMA(D2:D544;D2:D544;C2:C544);0))