Çalışan sorgunun en altına otomatik toplam aldırmak

[sfm3434]

Merhaba. Burdaki sevili soru ve cevaplardan dolayı site yöneticilerini öncelikle tebrik etmek istiyorum. Benim sorum çalışan bir odbc sorgusundan sonra oluşan excel tablosunun rakamsal değerli olan sütünlarına değişik fonksiyonlar kullanmak istiyorum. Örnek toplamını alsın gibi. Bir örnek olarak tutar sütunun yaparsanız örnek olması açısından diğerlerini de o mantıkta yaparım diye düşünüyorum. Şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub toplamal()
son = Cells(65536, "b").End(xlUp).Row
Cells(son, "a").Offset(1, 0) = WorksheetFunction.Sum(Range("a5:a" & son))
End Sub

 

[sfm3434]

Sorgu

Sorguyu vb makro kısmına ekledim ama yenile dediğimde her hangi bir şekilde toplama işlemi yapmadı. Ekteki excel dosyasına yapıp gönderme imkanınız varmıdır?

 

[Korhan Ayhan]

Selamlar,

Size önerilen kodu sizdeki kodların en alt kısmına ekledikten sonra kendi kodlarınız içinde aşağıdaki kod satırını bulun.

Application.ScreenUpdating = True

Bu satırın bir üstüne aşağıdaki komutu yazın.

toplamal

 

[sfm3434]

Olmadı

Merhaba. Sorguyu yanlış yeremi yazıyorum bilmiyorum ama bir türlü toplatamadım.

 

[Korhan Ayhan]

Selamlar,

Kodu sorgu dışına yazdığınız için sonuç alamıyorsunuz.

Sub Button_Click() makrosunun içine yazacaksınız.

 

[sfm3434]

Tşk

Çok teşekkürler benim için çok faydalı bir bilgi oldu. Kolay gelsin.