Makro ile matematiksel işlemler

[bmutlu966]

Aşağıdaki makroda seçtiğim hücrelerin toplamını, ortalamasını, max ve min değerlerini aldırmam için kodları nasıl devam ettirmem lazım.



Sub islemler()

On Error Resume Next

For Each x In Selection
If x <> "" Then say = say + 1 ' seçtiğim hücreleri say
'seçtiğim hücreleri topla
'seçtiğim hücrelerin ortalamasını al
'seçtiğim hücrelerin en büyüğü
'seçtiğim hücrelerin en küçüğü





Next

[A1] = say
[A2] = topla
[A3] = ortalama
[A4] = enbuyuk
[A5] = enkucuk

End Sub

 

[bmutlu966]

Bu şekilde oluyor.

Sub islemler()

On Error Resume Next
For Each x In Selection
[a1] = WorksheetFunction.Count(Selection) ' seçtiğim hücreleri say
[a2] = WorksheetFunction.Sum(Selection) 'seçtiğim hücreleri topla
[a3] = WorksheetFunction.Average(Selection) 'seçtiğim hücrelerin ortalamasını al
[a4] = WorksheetFunction.Max(Selection) 'seçtiğim hücrelerin en büyüğü
[a5] = WorksheetFunction.Min(Selection) 'seçtiğim hücrelerin en küçüğü
Next
End Sub