Bir hücreye yazdığım değer kadar belirli hücreden başlayıp toplama yapma

[burhaneroglu]

Merhaba Arkadaşlar,

Başlığım uzun oldu biraz ama burada açıklayayım. A sütununda aşağıya doğru yazdığım değerler var. B1 hücresine yazdığım değer kadar (örneğin 3) A sütunundaki hücrelerin toplanmasını istiyorum. Yani 3 yazdığımda A1, A2 ve A3'ün toplanmasını istiyorum. Ayrıca B1 hücresine yazdığım değer ondalık da (2,42) olabilir. Bu durumda A1, A2 ve A3*0,42 nin toplanmasını istiyorum. Çok tecrübem yok excel konusunda. İnternette de araştırdım ama bir cevap bulamadım. Belki de çok şey istiyorum. Ama bi çözüm varsa bu sitede vardır diyerek yazmak istedim. Yardımlarınız için şimdiden teşekkürler.

 

[Korhan Ayhan]

Boş bir hücreye aşağıdaki formülü uygulayıp deneyiniz.

=TOPLA(KAYDIR(A1;;;TABANAYUVARLA(B1;1)))+EĞER(MOD(B1;1)>0;KAYDIR(A1;TAVANAYUVARLA(B1;1)-1;;;))*MOD(B1;1)

 

[burhaneroglu]

Arama yaptım ama bulamadım. Yardımınız için teşekkür ederim. Yazdığınız formül işimi görüyor.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırdığınızda B1 hücresi her değiştiğinde belirttiğiniz şekilde A sütunundaki hücrelerin toplamını C1 hücresine yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b1")) Is Nothing Then Exit Sub
tam = WorksheetFunction.Quotient(Target, 1)
kalan = Target - tam

If kalan = 0 Then
    [C1] = WorksheetFunction.Sum(Range("A1:A" & tam))
Else
    [C1] = WorksheetFunction.Sum(Range("A1:A" & tam)) + Cells(tam, "A") * kalan
End If
End Sub