Kod ile bir sütundaki sayıların alttoplamını aldırma

[bhdr]

Herkese iyi günler,

konu ile alakalı forumda arama yaptım ancak tam olarak istediğim şeyi kodlarla oynamama rağmende yapamadım.

İstediğim Ek' te gönderdiğim dosyanın A sütunun da ki sayıların sarı dolgulu noktaya alttoplam olarak toplatılmasıdır.

Yardımlarınız için şimdiden teşekkürler.

 

[Ömer BARAN]

Merhaba.

Anladığım kadarıyla A1 hücresinden aşağı doğru ilk boş hücreye kadarki alanda yer alan sayıların toplamını,
ilk boş hücrenin bir altındaki hücreye toplamını almak istiyorsunuz.
.

[COLOR="Red"]son[/COLOR] = [A1].End(xlDown).Row
Cells([COLOR="red"]son[/COLOR] [B][COLOR="Blue"]+ 2[/COLOR][/B], "A") = WorksheetFunction.Sum(Range("A1:A" & [COLOR="red"]son[/COLOR]))

 

[askm]

Sub askm_Toplam()
Dim son As Long
Application.ScreenUpdating = False
son = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To son
    Toplam = Toplam + Cells(i, 1)
Next i
Cells(i + 1, 1) = Toplam
Application.ScreenUpdating = True
MsgBox "işleminiz tamam...", vbInformation, "ASKM"
End Sub

 

[tunchasan]

Her iki kodda çalışıyor Teşekkürler.

son = Range("A" & Rows.Count).End(xlUp).Row

son = [A1].End(xlDown).Row

İki kodda aynı işleve sahip sanırım. Mantıkları nedir

 

[tunchasan]

Sayfa1.Range("A62652").End(3).Row bu kodda aynı işlevi görür değil mi

 

[Haluk]

Sayfa1.Range("A62652").End(3).Row bu kodda aynı işlevi görür değil mi

En son sayı A62652'den sonraki bir hücredeyse, aynı işi görmez.

Cevaplayan arkadaşlar, bütün A sütunu için hazırlamışlar kodlarını.

.

 

[Ömer BARAN]

Tekrar merhaba.

Benim verdiğim kod'da son değişkeni; A1 hücresinden aşağı doğru son dolu hücrenin satır numarası (verilerin A1'den itibaren boşluksuz olarak lislelendiğini varsayarak),
anlamına geliyor ve bunun iki satır sonrasına toplam alıyor.

Sayın askm'ın verdiği kod'da ise son değişkeni; A sütununda en son satırdan (excel versiyonuna göre 65536 veya 1048576'ncı satır) yukarı doğru ilk dolu hücrenin satır numarası anlamına geliyor ve bu hücrenin 1 altına toplam alıyor.

Sayın askm tarafından verilen ve benim verdiğim kod'u üst üste bir'den fazla kez çalıştırırsanız farklı sonuç alırsınız.
Benim verdiğim kod toplamı hep aynı hücreye alırken, Sayın askm'ın verdiği kod ikinci çalıştırmada, son aldığı toplamı da dahil ederek bir alt satıra tekrar toplam alır.

Tabi bu sorunun temelinde sizin sorunuzu, gerçek belgenizle aynı yapıda örnek belge üzerinden sormamanız ve muğlak kalan yönleri olacak şekilde sormanızdan kaynaklanıyor.
.

 

[bhdr]

Her iki cevap veren arkadaşlara çok teşekkür ederim.Ellerinize ve emeğinize sağlık.

 

[bhdr]

Tekrar merhaba.

Benim verdiğim kod'da son değişkeni; A1 hücresinden aşağı doğru son dolu hücrenin satır numarası (verilerin A1'den itibaren boşluksuz olarak lislelendiğini varsayarak),
anlamına geliyor ve bunun iki satır sonrasına toplam alıyor.

Sayın askm'ın verdiği kod'da ise son değişkeni; A sütununda en son satırdan (excel versiyonuna göre 65536 veya 1048576'ncı satır) yukarı doğru ilk dolu hücrenin satır numarası anlamına geliyor ve bu hücrenin 1 altına toplam alıyor.

Sayın askm tarafından verilen ve benim verdiğim kod'u üst üste bir'den fazla kez çalıştırırsanız farklı sonuç alırsınız.
Benim verdiğim kod toplamı hep aynı hücreye alırken, Sayın askm'ın verdiği kod ikinci çalıştırmada, son aldığı toplamı da dahil ederek bir alt satıra tekrar toplam alır.

Tabi bu sorunun temelinde sizin sorunuzu, gerçek belgenizle aynı yapıda örnek belge üzerinden sormamanız ve muğlak kalan yönleri olacak şekilde sormanızdan kaynaklanıyor.
.

Ömer Bey, açıklamanız ve yardımlarınız için çok teşekkür ederim.saygılarımla.