Soru Toplama

[sirkülasyon]

G : V sütun aralığında 2 : 50 arasını 51. satıra
Örnek :
G2:G50 arasını G51 hücresine
H2:H50 arasını H51 hücresine
I2:I50 arasını I51 hücresine .... gibi sütun toplamlarını en kısa bir kod ile nasıl alabilirim?
Yardımlarınız için şimdiden Teşekkür ederim

 

[Orion1]

Buyurun.

Sub topla()
Dim k As Integer
For k = 7 To 9
    Cells(51, k).Value = WorksheetFunction.Sum(Range(Cells(2, k), Cells(50, k)))
Next
MsgBox "Toplandı."
End Sub

 

[sirkülasyon]

Evren Abi Teşekkür ederim. Sağ Olasın

 

[Orion1]

Sizde sağolun