Futbolcuların Detaylı İstatistiği

[yyhy]

Futbolcuları Hesapla isimli linkini eklediğim dosyada bazı sütunlara formül uygulayamadım. Acaba ne yazılabilir? Yardımcı olan arkadaşlara teşekkür ederim. Dosya büyük olduğu için link eklemek zorunda kaldım. Örnek Dosya Linki

 

[Muhammet Okumuş]

Dosya boyutu formüllerle şişmiş. Makro çözüm kullanmak isterseniz deneyiniz.

Sub Futbolcu_Hesapla()
On Error Resume Next
son = Sheets("Futbolcular").Cells(Rows.Count, 2).End(3).Row
liste = Sheets("Futbolcular").Range("A3:AT" & son).Value
ülkeler = Range("C3:C653").Value
pos = Sheets("Futbolcular").Range("BA2:CA2").Value
Dim tablo(1 To 651, 1 To 6)
Dim x(1 To 651, 1 To 29)
For i = 1 To UBound(liste)
sat = WorksheetFunction.Match(liste(i, 4), ülkeler, 0)
sut = WorksheetFunction.Match(liste(i, 12), pos, 0) + 1
tablo(sat, 1) = tablo(sat, 1) + 1
x(sat, 1) = x(sat, 1) + liste(i, 3)
x(sat, 29) = x(sat, 29) + liste(i, 11)
x(sat, sut) = x(sat, sut) + 1
tablo(sat, 2) = x(sat, 1) / tablo(sat, 1)
tablo(sat, 3) = x(sat, 29) / tablo(sat, 1)
If liste(i, 5) > tablo(sat, 6) Then tablo(sat, 6) = liste(i, 5)
If liste(i, 3) > tablo(sat, 5) Then tablo(sat, 5) = liste(i, 3)
mk = 0
For k = 2 To 28
If x(sat, k) > mk Then
mk = x(sat, k)
tablo(sat, 4) = Application.Transpose(pos(1, k - 2)) & "-" & mk
End If

Next
Next
Range("D3").Resize(651, 6) = tablo

End Sub

 

[yyhy]

Ödev olduğu için özellikle formülle isteniyor. Eğer formül olursa makbule geçer teşekkür ederim.