BANKNOTLARI DAĞITMA

[cevherim]

[TR][TD]
Merhabalar, girilen banknot adetlerini, yapılacak olan ödemelere dağıtmak istiyorum, yardımcı olabilirseniz memnun olurum. Teşekkürler
[/TD][TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]

 

[cevherim]

örnek dosya linki aşağıdadır, teşekkürler

https://wetransfer.com/downloads/1e2b98938b02eac9f30561f93097422f20200421082305/25c3f4348803fa38bb2057a2f01f5d5b20200421082340/56280d

 

[cevherim]

???

 

[ÖmerFaruk]

Dosyanızın formatını değiştirerek hazırladım.
Ödemelerinizi A5 den aşağıya doğru sıra atlamadan girersiniz.
Elinizdeki banknot sayılarını B2:G2 aralığına girersiniz.
Makroyu çalıştırınca hesaplama yapar. Kod her çalıştığında yeniden dağıtım yapar. Bir şey silmenize gerek olmaz.
Denemedim ama 3 den fazla istediğiniz kadar ödeme yapabilirsiniz. Kodların çalışması lazım. Yeter ki dağıtacak paralarınız olsun =)
Kodlar görülsün diye buraya da kopyalıyorum. Kolay gelsin.

Banknot Dağıtma Excel buradan indirin.

Sub BankNot()
Dim i, k, Var As Integer

Range("B3:G3").ClearContents
Range("B5:G" & Range("A5").End(xlDown).Row).ClearContents
Application.ScreenUpdating = False
    For k = 2 To 7
        For i = 5 To Range("A5").End(xlDown).Row
            If Cells(2, k) = Cells(3, k) Then Exit For
            For x = 1 To Cells(2, k) - Cells(3, k)
                If Cells(i, 8) + Cells(1, k) > Cells(i, 1) Then Exit For
                Cells(i, k) = Cells(i, k) + 1
                Cells(3, k) = Cells(3, k) + 1
            Next x
        Next i
    Next k
    
Application.ScreenUpdating = True
End Sub