Ortalama ve Maksimum Değer

[eedtr1]

Aynı içerikli farklı ticari isimli alımlarımdan oluşan bir listem var.Listem Ticari isme göre sıralı.Yapmak istediğim şey içeriklere göre ortalama alım fiyatı ve maksimum alım fiyatını listede otomatik oluşturmak.Bunun için kullanabileceğim bir fonksiyon yada macro konusunda yardımcı olurmusunuz.
teşekkür ederim.

 

[Kemal Demir]

Sub ortalamavemax()
[g2] = WorksheetFunction.Average(ActiveSheet.Range("d2:d65536"))
[h2] = WorksheetFunction.Average(ActiveSheet.Range("e2:e65536"))
End Sub

Sorunuzu pek anlamadım ama yukarıdaki kodlar zannedersem size yol gösterebilir.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre;

D2 hücresine (Ortalama);

=TOPLA.ÇARPIM(($B$2:$B$8=B2)*($C$2:$C$8))/EĞERSAY($B$2:$B$8;B2)

E2 hücresine (Maksimum);

=TOPLA.ÇARPIM(MAK((($B$2:$B$8=B2)*($C$2:$C$8))))

formüllerini uygulayıp denermisiniz.

 

[Korhan Ayhan]

Selamlar,

Ayrıca ortalama fiyat için eğer ürüne ait fiyat satırı boş yada sıfır ise ve bunu ortalamaya dahil etmek istemiyorsanız D2 hücresine aşağıdaki formülü kullanabilirsiniz.

=TOPLA.ÇARPIM(($B$2:$B$8=B2)*($C$2:$C$8))/TOPLA.ÇARPIM(($B$2:$B$8=B2)*($C$2:$C$8>0))