Relative Referanslarla ilgili Toplam Sorusu

[Karanlik1]

Ekte yolladığım dosyada 5 satır olsada 500 satır olsada son sütünde toplamını nasıl aldırabilirim. Elimden gelen makroyu yazdım "deneme" adı altında.

Çok saolun

 

[Kemal Demir]

Merhaba,

ek'teki Örneğe bakınız.

 

[Karanlik1]

Çok saol dostum
Excelde makro kaydederken

ActiveCell.SpecialCells(xlLastCell).Select

şeklindeki ifade

Sub topla()
son = [b65536].End(3).Row
sonuc = WorksheetFunction.Sum(Range("b1:" & "b" & son))
Cells(son + 1, 1).Value = "Toplam"

Cells(son + 1, 2).Value = sonuc

End Sub

Koyu olan yer oluyor sanırım, değil mi?

Aslında benim listem 3 sütun genişliğinde de olabilir 30 sütün genişliğinde de ama son sutunda toplanacak rakamlar oluyor. Onun için soruyorum.