toplam aldırmak?

[karaayhan]

bir veritabanından excel'e veri aktarıyorum ancak satırların nerede biteceği belli değil
öyle bir kod yazmalıyım ki kaç kayıt olursa olsun en son satıra yani verilerin bittiği satırdan sonraki yeni bir satıra toplam aldırabileyim..

teşekkürler.

 

[Necdet]

Merhaba,

Hangi sütunlarda toplam alınacağını söylememişsiniz, örnek olarak A sütunu için kodları yazdım, siz kendinize uyarlayınız.

1. satırın başlık olacağını varsaydım.

Sub ToplamAl()
Dim SonSat As Long
SonSat = [A65536].End(3).Row
Range("A" & SonSat + 1) = "=SUM(A2:A" & SonSat & ")"
End Sub

 

[Merhum İdris SERDAR]

Alternatif:

Toplamı belirtilmiş listenin içine kopyalayın.

Konu için bakınız:

Data/List-Veri/Listele



.

 

[karaayhan]

sayın yurttaş harika olmuş çalışma çok teşekürler işimi görür yani..
kolay gelsin..

 

[Necdet]

Bizim yanıt işe yaramadı sanırım