Alt alta girilen verilerin sondan yukarı doğru toplamak

[oboran]

Merhabalar
Örneğini göndermiş olduğum sayfada bir fon programı hazırlıyorum. Alt alta girmiş olduğum verilerin son on günlük, son otuz günlük gibi sondan yukarıya istediğim kadarını toplamak istiyorum. Aynı zamanda da grafik de yansıtacağım.
Yani sarı hücrede hep son on günlük istatistiği, yeşil hücrede hep son otuz günlük istatistiğin otomatik olarak yansımasını istiyorum.
Yardımlarınız için şimdiden teşekkürler.
Saygılarımla


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Merhaba Osman Bey,

Tam emin olmamakla birlikte aşağıdaki kod fikir verebilir diye düşünüyorum.

Kod: [Seç]

Public Function SonONGun(gun As Integer)
Dim son_satir As Long, ilk_satir As Long
sutun = Split(ActiveCell.Address, "$")(1)
son = sutun & 65530
son_satir = Range(son).Offset(0, -1).End(3).Row
ilk_satir = son_satir - 10
aralik = sutun & ilk_satir & ":" & sutun & son_satir
SonONGun = Application.WorksheetFunction.Sum(Range(aralik))
End Function


Public Function SonOTUZGun(gun As Integer)
Dim son_satir As Long, ilk_satir As Long
sutun = Split(ActiveCell.Address, "$")(1)
son = sutun & 65530
son_satir = Range(son).Offset(0, -1).End(3).Row
ilk_satir = son_satir - 30
aralik = sutun & ilk_satir & ":" & sutun & son_satir
SonOTUZGun = Application.WorksheetFunction.Sum(Range(aralik))
End Function
Boş bir modüle yapıştırıp, 30 gün hesaplanacak hücrelere;
=SonOTUZGun(30)
10 gün hesaplanacak hücrelere;
=SonONGun(10)
formüllerini girip deneyiniz.

[oboran]

Bülent bey cevap için çok teşekkürler, oldu gibi diyebilirim, sadece bir fazla sayıyor.
On günü onbir, otuz günü otuzbirgün olarak veri veriyor.

[Bülent Öztürk]

Yanlış hesaplatmışım, kusura bakmayın. 

Kodlardaki
ilk_satir = son_satir - 10
satırını
ilk_satir = son_satir - 9
şeklinde

ve
ilk_satir = son_satir - 30
satırını
ilk_satir = son_satir - 29
şeklinde
değiştirmek gerekiyor.

[oboran]

Teşekkürler Bülent bey, sayenizde hem hallettik hemde bir kod daha öğrendik.

Bu konu hakkında öğrenme amacıyla soruyorum; aynı veriyi başka bir sayfadaki bir hücrede nasıl gösterebilirim?
Anladığım kadarıyla bu kod bulunduğu hücredeki sutunu tarıyor, peki aynı sutundaki sonucu "Sayfa2" deki A1 Hücresin de nasıl gösterebiliriz?

   sutun = Split(ActiveCell.Address, "$")(1)
   son = sutun & 65530son_satir = Range(son).Offset(0, -1).End(3).Row
Bir de çok olacam ama yukarıdaki kodun anlamını öğrenebilirmiyim? (1) ve (3) ne anlama geliyor?

Saygılarımla

[oboran]

Bülent bey bir sorun daha var;
verileri alt alta girerken otomatik olarak hesaplamıyor, ancak formülün üstüne gelip formül çubuğunda tıklayıp enter yapınca hesaplama yapıyor!

[Bülent Öztürk]

Merhaba Osman Bey,

sutun = Split(ActiveCell.Address, "$")(1)

komut satırında sütun'un harfini bulduk. (Nasıl olduğunu açıklayamam. Yabancı siteden buldum.  )
Aslında açıklayabileceğim yöntem ile de bulurduk ama biraz uzatmış olacaktık kodları... Neyse.

son = sutun & 65530
son_satir = Range(son).Offset(0, -1).End(3).Row

End(3) 'ü bulduğumuz sütun numarasının 65530. satırından yukarıya doğru tarayarak ilk dolu hücrenin satır numarasını bulmak için kullandık. Diğer bir değişle, belirtilen sütundaki aşağı doğru dolu en son hücrenin satır numarası...
Şu şekilde de kullanabilirdik:
son_satir = Range(son).Offset(0, -1).End(xlUp).Row

MsgBox Range("C65530").End(xlUp).Row ---> C65530'dan yukarıya doğru dolu ilk hücrenin satır numarasını bulur.
MsgBox Range("C1").End(xlDown).Row ---> C1'den aşağı doğru dolu son hücrenin satır numarası...

Bülent bey bir sorun daha var;
verileri alt alta girerken otomatik olarak hesaplamıyor, ancak formülün üstüne gelip formül çubuğunda tıklayıp enter yapınca hesaplama yapıyor!

Evet, bunu Application.Volatile komut satırı (Sayfada herhangi bir işlem yapıldığında fonksiyonumuzu güncellemesi için) kullanarak çözmeyi düşündüm ancak fonksiyonun birden fazla hücrede kullanımı hesaplama hatasına sebep oldu.

Sonuç:
Yukarıdaki çözümü çöpe atabilirz.