Excel topla çarpım ve özdeş formülünü VBA'ya dönüştürme

[jokaliptuss]

Merhabalar, sporculara sonuçlarına göre belirli (1-100, 2-85, 3-65, 4-55, 5-51 gibi sıfıra kadar devam ediyor) puanları atayan şayet eşitlik varsa sıralarına göre eşit sporculara denk gelen puanları toplayıp eşitlik sayısına bölen (örnek olarak 2 tane birinci varsa 100 ile 85i toplayıp ikiye bölüyor, 2 tane ikinci varsa 85 ile 65i toplayıp ikiye bölüyor) bir VBA kodu yazmaya çalışıyorum. Excelde iyi çalışan bir kodum var fakat VBA ya bir türlü aktaramadım. "ÇOKEĞER(EĞERSAY($A$3:$A$10;$A3)=1;$P3;EĞERSAY($A$3:$A$10;$A3)>1;(TOPLA.ÇARPIM(--(ÖZDEŞ($A3;$A$3:$A$10));$P$3:$P$10)/EĞERSAY($A$3:$A$10;$A3)))"
Yukarıdaki formülde A sütunu sonuçların olduğu, P sütunu ise (100, 85, 65, 55, 51...) sonuçlara denk gelen puanların olduğu sütunu içermektedir.

 

[tamer42]

Merhabalar, sporculara sonuçlarına göre belirli (1-100, 2-85, 3-65, 4-55, 5-51 gibi sıfıra kadar devam ediyor) puanları atayan şayet eşitlik varsa sıralarına göre eşit sporculara denk gelen puanları toplayıp eşitlik sayısına bölen (örnek olarak 2 tane birinci varsa 100 ile 85i toplayıp ikiye bölüyor, 2 tane ikinci varsa 85 ile 65i toplayıp ikiye bölüyor) bir VBA kodu yazmaya çalışıyorum. Excelde iyi çalışan bir kodum var fakat VBA ya bir türlü aktaramadım. "ÇOKEĞER(EĞERSAY($A$3:$A$10;$A3)=1;$P3;EĞERSAY($A$3:$A$10;$A3)>1;(TOPLA.ÇARPIM(--(ÖZDEŞ($A3;$A$3:$A$10));$P$3:$P$10)/EĞERSAY($A$3:$A$10;$A3)))"
Yukarıdaki formülde A sütunu sonuçların olduğu, P sütunu ise (100, 85, 65, 55, 51...) sonuçlara denk gelen puanların olduğu sütunu içermektedir.

Örnek dosya ekler misiniz

 

[jokaliptuss]

Örnek dosya ekler misiniz

Merhabalar, ilginiz için teşekkürler.
https://docs.google.com/spreadsheets/d/1xBOyI07d_ULlqIvdFd6sK2-ipruQN3NG/edit?usp=share_link&ouid=108334972935343408063&rtpof=true&sd=true