Soru Sütundaki son hücrenin altına toplam alma

[sirkülasyon]

Hayırlı Akşamlar
Maliyet sayfasında, V sütununda son dolu hücrenin altına V sütunundaki rakamların toplamını alabilmek için yardımcı olabilir misiniz?

 

[sirkülasyon]

Dim SONSUT As Long
SONSUT = Range("V" & Rows.Count).End(xlUp).Row
Range("V" & SONSUT + 1).Formula = "=SUM(V2:V" & SONSUT & ")"

Kodu kullanarak sonuca ulaştım. Teşekkür ederim.

 

[asi_kral]

Merhaba

sub toplam()
dim S1 as worksheet,STR as long
set s1= sheets("Maliyet")
str=s1.range("V" & rows.count).end(xlup).row
s1.range("V"& str+1)= worksheetfunction.sum(S1.range("V1:V" & str))
end sub

Bu şekilde bir kod işinize yarayabilir