Soru sütun toplama

[sirkülasyon]

AJ8 hücresine E8 : AI8 aralığını toplayacak
AK8 hücresine AJ8 hücresinin toplamını 5 sayısına tamsayı olarak bölecek
AL8 hücresine de AJ8 ile AK8 hücresini toplayacak

Bu durum 8. satırdan 45' inci satıra kadar döngü ile devam edecek bir toplama makrosuna ihtiyacım var. Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    With Range("AJ8:AJ45")
        .Formula = "=SUM(E8:AI8)"
        .Value = .Value
    End With
    
    With Range("AK8:AK45")
        .Formula = "=ROUND(AJ8/5,0)"
        .Value = .Value
    End With

    With Range("AL8:AL45")
        .Formula = "=SUM(AJ8,AK8)"
        .Value = .Value
    End With
End Sub

 

[sirkülasyon]

Korhan abi ellerine sağlık. Zamanınız varsa düğmeye bağlamadan veri girdikçe hesaplama şekline uyarlayabilir misiniz?