Soru Makro İle Otomatik Toplam Aldırma???

[baykan_m]

Merhaba Arkadaşlar,

Sayfada yer alan bir listede alt toplam aldırmak istiyorum. Ancak liste toplamı sürekli değişiyor. Doğal olarak belli bir satır aralığı değil de son hücreye kadar olan kısmı toplatmak istiyorum. Kullandığım formül aşağıdaki gibidir;

Range("AH1:AH" & Son).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-187]C:R[-1]C)"

Bu formülü belli bir satır aralığı belirtmeden 1. hücre ile son hücre arası topla işlemini nasıl yapabilirim?

Yardımcı olabilirseniz çok sevinirim.

 

[Ömer]

Merhaba,

Deneyiniz.

Range("AH" & Son+1) = WorksheetFunction.Sum(Range("AH1:AH" & Son))

.

 

[baykan_m]

Merhaba,

Deneyiniz.

Range("AH" & Son+1) = WorksheetFunction.Sum(Range("AH1:AH" & Son))

.

Ömer Bey şimdi oldu ancak formül olarak görünmesi daha iyi olacaktır. Liste içerisinde değişiklik olduğunda alt toplamın değişmesi gerekiyor buna da yardımcı olabilir misiniz?

 

[Ömer]

Deneyiniz.

Range("AH" & Son + 1) = "=Sum(AH1:AH" & Son & ")"