Makro ile Ortalama Aldırma

[arifcetin93]

Arkadaslar Merhaba,
ekteki örnek dosyamda A sütünundaki son degere kadar I sutununa örnekteki gibi ortalama aldırmam gerekiyor desteklerinizi rica ediyorum

tesekkurler

https://dosya.co/2dk4xagcp8np/Kitap1.xlsm.html

 

[Muzaffer Ali]

Merhaba.

Sub Ortalama()
    With Range("I2:I" & Cells(Rows.Count, "A").End(xlUp).Row)
        .FormulaLocal = "=ORTALAMA(E2;G2)"
        .Value = .Value
    End With
End Sub

 

[arifcetin93]

tesekkurler muzaffer bey

 

[arifcetin93]

Muzaffer Bey Yeniden Merhaba,
konu ile ilgili olarak sımdı benım asagıdaki tabloya for dongusunde devam edebılecegım bır ortalama aldırma koduna ihtiyacım var kendim yazdım fakat ılk degerler sıfır oldugu ıcın hata verdı ve sonuc hatalı oldu for next ıcınde 13. sutun o sütununa ortalama aldırabilirmiyiz deger yoksada sıfır olarak gelebilir sorun degil

xx	Sene	1	2	3	4	5	6	7	8	9	10	11	12	13
a	2025							2.183,76						average
b	2025								2.046,00					average
c	2025							468,80						average
d	2025					11.810,32			361,30	4.329,35				average
e	2025									866,00				average
f	2025							3.548,20						average
g	2025								15.620,00					average
h	2025										1.000.000,00			average
e	2025													average

 

[Muzaffer Ali]

1-12 rakamların altındaki hücrelerin ortalaması 13 yazan hücrenin altına mı yazılacak?

Yada hangi hücrelerin ortalaması 13 ün altına yazılacak?

 

[Muzaffer Ali]

Eğer C:N aralığının ortalaması alınacaksa.

Sub Ortalama4()
    Dim Bak As Long
    For Bak = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        If WorksheetFunction.Count(Range(Cells(Bak, "C"), Cells(Bak, "N"))) > 0 Then
            Cells(Bak, "O") = WorksheetFunction.Average(Range(Cells(Bak, "C"), Cells(Bak, "N")))
        End If
    Next
End Sub

 

[arifcetin93]

1-12 rakamların altındaki hücrelerin ortalaması 13 yazan hücrenin altına mı yazılacak?

Yada hangi hücrelerin ortalaması 13 ün altına yazılacak?

Evet hocam verdiğiniz kodu en kısa sürede deneyeceğim

 

[arifcetin93]

emeginize saglık hocam sorunsuz calstı cok tesekkur ederm