• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,543
Excel Vers. ve Dili
2021 LTSC TR
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?
 
Kod:
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.
 
Merhaba
Kod:
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
 
Geri
Üst