En son Yazılı Hücreye toplam

[doukan84]

Hayırlı Geceler arkadaşlar.. Saat baya geç oldu ama aklıma birşey takıldı..


Şöyle Birşey yapmak istiyorum acaba mümkünmü ?

C sütünun en son yazılı hücresinin 1 al satırına C sütünundaki rakamların toplamını yazdırmak istiyorum.. Bir solundaki Hücreyede "TOPLAM" yazısını yazdırmak istiyorum birde

Not: C sütunundaki yazılı hücrelerin sayısı bana gelen veritabanına göre günlük değişmekte..

Şimdiden teşekkür ederim

 

[Ziynettin]

Merhaba,

Sub topla()
sat = Range("C" & Rows.Count).End(3).Row
Range("C" & sat + 1) = WorksheetFunction.Sum(Range("C[COLOR="Red"]2[/COLOR]:C" & sat))
Range("B" & sat + 1) = "TOPLAM"
End Sub

kod satırındaki kırmızı yazılı satırı kendi tablonuza göre yazın.

 

[doukan84]

Çok sağol hocam Eline sağlık süper oldu