Makro ile Ort.alma

[zırzır]

Değerli arkadaşlar,aşağıdaki excel sayfasındaki sayı dizininin makro ile ortalamasını
alabilirmiyiz.Teşekkürler.

 

[veyselemre]

Sizin yazdığınız formül daha kolay ama, makroyla da aşağıdaki gibi yapabilirsiniz.

Sub ortalama()
For x = 5 To [a65536].End(3).Row
    Cells(x, 3) = Round(WorksheetFunction.Average(Range("a" & x - 4 & ":a" & x)), 2)
Next x
End Sub

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[b1] = Application.Average([a1:a10])
End Sub

 

[zırzır]

Sayın veyselemre,yazdığınız makrodaki ortalamanın oran sayısını nasıl değiştirebilirim.(mesela 5 günlük,10 günlük gibi)A sütunundaki her değer bir günü temsil ediyor.Ortalama oran sayısını değiştirirsem çıkan değerlerin de değişmesi gerekiyor.

 

[zırzır]

Sayın Seyit Tiken sizin makroyu çalıştıramadım.

 

[veyselemre]

Ortalama alınacak hücre sayısını makronun adet kısmından değiştirebilirsiniz,

Sub ortalama()
adet = 10
For x = adet To [a65536].End(3).Row
    Cells(x, 3) = Round(WorksheetFunction.Average(Range("a" & x - (adet - 1) & ":a" & x)), 2)
Next x
End Sub

 

[zırzır]

Sayın veyselemre,makro istediğim gibi çalışıyor ancak ortalamanın olduğu sütunu
nereden ayarlıyoruz onu bulamadım.Ben makroyu buton ile çalıştırmak istediğimde
mesela D1 hücresine yazdığım ortalama sayısı ile çalıştırabilirmiyim.

 

[veyselemre]

Sub ortalama()
adet =[d1]
For x = adet To [a65536].End(3).Row
    Cells(x, 3) = Round(WorksheetFunction.Average(Range("a" & x - (adet - 1) & ":a" & x)), 2)
Next x
End Sub

 

[zırzır]

Sayın veyselemre,makro iyice güzelleşti ama ortalama sürekli "C" sütununda çıkıyor onu istediğim yere alamıyorum.

 

[Orion1]

Merhaba.

Cells(x, 3)

Yukarıdaki satırı aşağıdaki gibi değiştirin.D sütununda gösterir.

Cells(x, "D")

 

[zırzır]

Sayın Sezar,teşekkür ederim işim oldu,sana ve makroyu veren "veyselemre"arkadaşa sonsuz teşekkürler.