Hi,
Sorry. In original post I made typing error in link, below the proper link
http://www.savefile.com/files/58143
Thaks again
George.
"Gary''s Student" wrote in message
...
I can't get to you files, but:
at the end of the day
put the number of hundreds in A1
the number of fifties in A2
the number of twenties in A3
the number of tens in A4
the number of fives in A5
the number of ones in A6
then run this macro:
Sub gsnu()
talley = 0
hundreds = Range("A1").Value
fifties = Range("A2").Value
twenties = Range("A3").Value
tens = Range("A4").Value
fives = Range("A5").Value
ones = Range("A6").Value
p1 = 0
p5 = 0
p10 = 0
p20 = 0
p50 = 0
p100 = 0
total = 100 * hundreds + 50 * fifties + 20 * twenties
total = total + 10 * tens + 5 * fives + ones
MsgBox (total)
For i = 1 To ones
talley = talley + 1
p1 = p1 + 1
If talley = 200 Then GoTo done
Next
For i = 1 To fives
talley = talley + 5
p5 = p5 + 1
If talley = 200 Then GoTo done
Next
For i = 1 To tens
talley = talley + 10
p10 = p10 + 1
If talley = 200 Then GoTo done
Next
For i = 1 To twenties
talley = talley + 20
p20 = p20 + 1
If talley = 200 Then GoTo done
Next
For i = 1 To fifties
talley = talley + 50
p50 = p50 + 1
If talley = 200 Then GoTo done
Next
For i = 1 To hundreds
talley = talley + 100
p100 = p100 + 1
Next
done:
MsgBox ("Put" & Chr(10) & p1 & " ones" & Chr(10) & p5 & " fives" & Chr(10)
&
p10 & " tens" & Chr(10) & p20 & " twenties" & Chr(10) & p50 & " fifties" &
Chr(10) & p100 & " hundreds" & Chr(10) & " back in register")
deposit = total - p100 * 100 - p50 * 50 - p20 * 20 - p10 * 10 - p5 * 5 -
p1
MsgBox ("deposit " & deposit)
End Sub
It will tell you what bills to return to the register and what amount to
deposit
--
Gary's Student
"George" wrote:
Hi;
I am working in a company that we use cash balancing sheet at the end of
the
day
in theory there is 200$ at morning, at the end of the day deposit all the
balance - 200$ for the nex day.
rules are to take out the biggest cash bills in first.
I have saved files in http://www.savefile/files/58143
thank you
George..