Checkbook Register for AD&D 1e

I've been trying -- without much success -- to create a checkbook register for AD&D 1e campaigns. I've attached what I've gotten so far, but I'd like for the reconciliations at the bottom to be automatic.

I envision some sort of looping IF statement in a macro whereby if the number in column L is divisible by 10, 100, 1000, etc., it is divided by highest power of 10 possible, the remainder returned and the quotient added to the number in column M. Then if the number in column M is divisible by 10, 100, 1000, etc., it is divided by highest power of 10 possible, the remainder returned and the quotient added to the number in column N. Then if the number in column N is divisible by 2, 4, 6, etc., it is divided by highest even number possible, the remainder returned and the quotient added to the number in column O. Then if the number in column O is divisible by 5, 10, 15, etc., it is divided by highest power of 5 possible, the remainder returned and the quotient added to the number in column P.

But I'm getting the cart before the horse. I also want to deal with the largest denominations of coins I can. And don't want any negative numbers unless I'm truly overdrawn. You can see in rows 37-40, I've manually corrected give me all positive numbers.

This may be confusing, and it's just for fun. I'll answer any questions, and really appreciate the help.

Hello Wrenn and Welcome to Excel forum.
Here is a proposed formula solution that employs a helper column, where the initial value in Q15 is 4 (assuming 20 gold coins = 4 platinum coins).
The formula for the helper column, starting with row 16, is:

Formula:

Please Login or Register  to view this content.

The formula for the Balance (PP) is: =IF(ROUNDDOWN(Q15,0)>=0,ROUNDDOWN(Q15,0),0)
The formula for the Balance (GP) is: =IF(ROUNDDOWN((Q15*10-P15*10)/2,0)>=0,ROUNDDOWN((Q15*10-P15*10)/2,0),0)
The formula for the Balance (EP) is: =IF(ROUNDDOWN((Q15-(P15+O15*0.2))*10,0)>=0,ROUNDDOWN((Q15-(P15+O15*0.2))*10,0),0)
The formula for the Balance (SP) is: =IF(ROUNDDOWN(ROUND(Q15-(P15+O15*0.2+N15*0.1),3)*100,0)>=0,ROUNDDOWN(ROUND(Q15-(P15+O15*0.2+N15*0.1),3)*100,0),0)
The formula for the Balance (CP) is: =ROUNDDOWN((Q15-(P15+O15*0.2+N15*0.1+M15*0.01))*1000,0)
Let us know if you have any questions.

You're Welcome and thank you for the feedback. Please take a moment to mark the thread as 'Solved' using the thread tools link above your first post. I hope that you have a blessed day.