En yakın değere kadar toplama nasıl yapılır?

[asevincel]

Merhaba,

Bir sütundaki sayıları, verilen bir sayıya kadar otomatik olarak nasıl toplatırım?

Örneğin bir sütunda 3,5,4,11,6,5 sayıları olsun alt alta.Bende en fazla 20 ye kadar topla diye bir hedef vermek istiyorum. Formülün 3,5 ve 4 ü toplayarak 12 sonucunu vermesini istiyorum. 11 i toplamayacak çünkü sonuç 23 olacağından 20 yi geçecek.

Makro yazmak dışında bunu formülle nasıl yapabiliriz?

Saygılar...

 

[Murat OSMA]

Sub Hedef()
    Dim i As Integer, Rky As Integer
    Rky = Range("B1").Value
    For i = 1 To Range("A65536").End(3).Row
        topla = topla + Cells(i, 1)
        If topla <= Rky Then
            Range("B2").Value = topla
        End If
    Next i
    i = Empty: Rky = Empty
End Sub

 

[asevincel]

Sub Hedef()
    Dim i As Integer, Rky As Integer
    Rky = Range("B1").Value
    For i = 1 To Range("A65536").End(3).Row
        topla = topla + Cells(i, 1)
        If topla <= Rky Then
            Range("B2").Value = topla
        End If
    Next i
    i = Empty: Rky = Empty
End Sub

Murat Bey,

Yanıtınız için çok teşekkür ederim. Bunu makro kullanmadan bir formülle yapabilme yöntemi var mı? Makroları bilmediğim için projemde bunu formülle çözebilmem gerekiyor.

Saygılarımla...

 

[Merhum İdris SERDAR]

Merhaba,

Bir sütundaki sayıları, verilen bir sayıya kadar otomatik olarak nasıl toplatırım?

Örneğin bir sütunda 3,5,4,11,6,5 sayıları olsun alt alta.Bende en fazla 20 ye kadar topla diye bir hedef vermek istiyorum. Formülün 3,5 ve 4 ü toplayarak 12 sonucunu vermesini istiyorum. 11 i toplamayacak çünkü sonuç 23 olacağından 20 yi geçecek.

Makro yazmak dışında bunu formülle nasıl yapabiliriz?

Saygılar...

.

Örnek dosya ekte.


.