Hangi satırların toplamı belirli bir sayı eder?

[yalnızefe]

Arkadaşlar bildiğiniz üzere bu tarz sorunlar genelde belirli bir aya ait KDV beyannamesi verdikten sonra o aya ait tekrar fatura işlediğimizde KDV tahakkuk kaydının bozdulduğunu görürüz. Bunu düzeltmek için geçmiş kdv ayına dönemine girilen faturaları hesap hareketlerinden bulmamız gerekir. Lakin o kadar çok fatura işlenmiştir ki sizin istediğiniz rakama ulaşabilmeniz için belki 1 den fazla fatura bulmanız gerekir. İşte burada excel'e öyle bir formül yazalım ki bir sütuna ait hangi hücreler toplanırsa o istediğimiz sayıya ulaşalım?

Örnek tablo ektedir.

 

[yalnızefe]

http://www.excel.web.tr/f14/toplam-kombinasyonu-t29633.html
http://www.excel.web.tr/f60/solver-addin-z-c-eklent-s-uygulamalari-t18544.html

bu başlıklarda tartışılmış..

 

[yalnızefe]

fakat aradığım çözümü bu başlıklarda bulamadım arkadaşlar. yardımcı olabilecek biri var mı?

 

[Murat OSMA]

Şu basit kodları bir deneyiniz;

Sub Hangilerini_Toplasam()
    Dim i As Integer, evn As Range, değer As Double, elma As Double
    değer = 51.07
    For i = 1 To 6
        elma = değer - Cells(i, "B")
        If değer - elma = Cells(i, "B") And Cells(i, "B") + elma = değer Then
            Range("D1").Value = elma
            Set evn = Range("B1:B6").Find(elma, , , 1)
            If Not evn Is Nothing Then
                Range("D1").Copy Range("E1")
                If Cells(i, "B") = değer - Range("E1").Value Then
                    Cells(2, "E") = Cells(i, "B")
                    Cells(3, "E") = WorksheetFunction.Sum(Range("E1:E2").Value)
                End If
            End If
        End If
    Next i
    Columns("D:D").Delete
    i = Empty: değer = Empty: elma = Empty: Set evn = Nothing
End Sub

 

[yalnızefe]

Murat Bey ilginiz için teşekkürler. Aradığım özellik buydu..

 

[Murat OSMA]

Rica ederim, iyi akşamlar..