Seštevanje zneskov!

[Zoki]

V Excelovem listu imam v stolpcu od J4 pa do J.... različne zneske, ki bi jih rad, da mi jih makro takoj za zadnjo izpolnjeno vrstico sešteje in izpiše. Zneski v stolpcu J niso vsi vpisani, čeprav vem da bi lahko napisal na koncu vpisov formulo v celico =sum(J4:......), vendar pa tudi ni vedno enako število vrstic (se spreminjajo). Se da ta moj problem rešit na kakšen bolj eleganten način v makroju, da mi izpiše za zadnjim vnosom znesek v celico vsakič, ko zaženem makro?
Vem, da je:
zadnja_vrstica=Range(J65536").End(xlUp).Row
ne vem pa, kako bi lepše napisal to formulo:
ActiveCell.FormulaR1C1 = "SUM(R[-1]C:R..........)"
ker so to absolutni sklici, kar pa v mojem primeru ne pride v poštev?!?!

Hvala za rešitev in L.P.:
Zoki

[admin]

Pozdravljeni,

Uporabite lastnost Formula, kjer pa lahko pišete relativne formule, kakor imate zapisano tudi spodaj:

Koda: Izberi vse

zadnja_vrstica = Range("J65536").End(xlUp).Row
Range("J" & zadnja_vrstica + 1).Formula = "=SUM(J2:J" & zadnja_vrstica & ")"