Function Raspodjela(Optional BrojOsoba As Integer = 5)
    Dim Kovanice As Object
    Dim Vrijednosti As Object
    Dim UkupnaVrijednost As Currency
    Dim Apoen As Variant
    Dim Podjela As Currency
    Dim I, N As Integer
    Dim KovanicaVrijednost As Currency
    Dim BrojKovanica As Integer
    Dim KovanicaRaspodjela As Integer
    Dim OsobaIndex As Integer
    Dim PodjelaPara() As Integer
    
    Set Kovanice = CreateObject("Scripting.Dictionary")
    Kovanice.Add "50c", 24  ' 50 centi
    Kovanice.Add "1e", 28   ' 1 euro
    Kovanice.Add "2e", 29   ' 2 eura
    Kovanice.Add "5e", 4    ' 5 eura
    
    Set Vrijednosti = CreateObject("Scripting.Dictionary")
    Vrijednosti.Add "50c", 0.5
    Vrijednosti.Add "1e", 1
    Vrijednosti.Add "2e", 2
    Vrijednosti.Add "5e", 5
    
    ReDim PodjelaPara(1 To BrojOsoba, 1 To 4)
    UkupnaVrijednost = 0
    
    For Each Apoen In Kovanice.Keys
        UkupnaVrijednost = UkupnaVrijednost + (Kovanice(Apoen) * Vrijednosti(Apoen))
    Next Apoen

    Podjela = UkupnaVrijednost / BrojOsoba
    OsobaIndex = 1
    
    For I = 1 To BrojOsoba
        IznosPreostali = Podjela
        
        For Each Apoen In Array("5e", "2e", "1e", "50c")
            KovanicaVrijednost = Vrijednosti(Apoen)
            BrojKovanica = Kovanice(Apoen)
            KovanicaRaspodjela = 0
            Do While IznosPreostali >= KovanicaVrijednost And BrojKovanica > 0
                
                If I = BrojOsoba Then
                KovanicaRaspodjela = BrojKovanica
                BrojKovanica = 0
                IznosPreostali = IznosPreostali - KovanicaVrijednost
                Else
                KovanicaRaspodjela = KovanicaRaspodjela + 1
                IznosPreostali = IznosPreostali - KovanicaVrijednost
                BrojKovanica = BrojKovanica - 1
                End If

            Loop
            PodjelaPara(OsobaIndex, Application.Match(Apoen, Array("50c", "1e", "2e", "5e"), 0)) = _
            PodjelaPara(OsobaIndex, Application.Match(Apoen, Array("50c", "1e", "2e", "5e"), 0)) + KovanicaRaspodjela
            Kovanice(Apoen) = BrojKovanica
        Next Apoen
        OsobaIndex = OsobaIndex + 1
    Next I
    
    
    ' Ispis rezultata u Excel
    Dim ImesSita As String
    ImesSita = "Raspodjela kovanica"
    Obrisi (ImesSita)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = ImesSita
    
    ' Ispis naziva stupaca (kovanice)
    ws.Cells(1, 1).Value = "Osoba"
    ws.Cells(1, 2).Value = "50c"
    ws.Cells(1, 3).Value = "1e"
    ws.Cells(1, 4).Value = "2e"
    ws.Cells(1, 5).Value = "5e"
    
    ' Ispis raspodjele po osobama
    For I = 1 To BrojOsoba
        ws.Cells(I + 1, 1).Value = "Osoba " & I
        For N = 1 To 4
            ws.Cells(I + 1, N + 1).Value = PodjelaPara(I, N)
        Next N
    Next I
    
    For I = 1 To BrojOsoba
        Dim suma As Currency
        suma = PodjelaPara(I, 1) * 0.5 + PodjelaPara(I, 2) * 1 + PodjelaPara(I, 3) * 2 + PodjelaPara(I, 4) * 5
        ws.Cells(I + 1, 6).Value = "'  " & suma & " " & Chr(128)
    Next I
        Dim BrojApoena As Integer
    For I = 2 To 5
    BrojApoena = 0
        For N = 2 To BrojOsoba + 1
        BrojApoena = BrojApoena + ws.Cells(N, I).Value
        Next N
   ws.Cells(BrojOsoba + 2, I).Value = BrojApoena
    Next I
    MsgBox "Gotovo!", vbInformation
End Function
Function Obrisi(Naziv As String)
    Dim ws As Worksheet
    
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(Naziv)
    On Error GoTo 0
    If Not ws Is Nothing Then
        Application.DisplayAlerts = False
        ws.Delete
        Application.DisplayAlerts = True
    End If
End Function