Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get Balance of an entry
Hi there I am trying to get the balance of one entry ,...................but ??? i.e. Db side must equal Cr side of one entry, otherwise the difference should appear in the next column Code: -------------------- Sub testbal() Dim Db As Currency Dim Cr As Currency Dim v3 As Currency Dim entryN As Long Dim i As Long With Range("bon") entryN = .Cells(1, 1) While .Cells(1, 1) = entryN For i = 2 To 20 Db = .Cells(i, 4) Cr = .Cells(i, 5) If Db < Cr Then v3 = Db - Cr .Cells(i, 6) = v3 End If Db = 0 Cr = 0 entryN = .Cells(i, 1) Next i Wend End With End Sub -------------------- -- helmekki ------------------------------------------------------------------------ helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939 View this thread: http://www.excelforum.com/showthread...hreadid=478520 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get Balance of an entry
not sure exactly what you sheet looks like, but i get it to run if i get rid
of the period before the cells() entries -- Gary "helmekki" wrote in message ... Hi there I am trying to get the balance of one entry ,...................but ??? i.e. Db side must equal Cr side of one entry, otherwise the difference should appear in the next column Code: -------------------- Sub testbal() Dim Db As Currency Dim Cr As Currency Dim v3 As Currency Dim entryN As Long Dim i As Long With Range("bon") entryN = .Cells(1, 1) While .Cells(1, 1) = entryN For i = 2 To 20 Db = .Cells(i, 4) Cr = .Cells(i, 5) If Db < Cr Then v3 = Db - Cr .Cells(i, 6) = v3 End If Db = 0 Cr = 0 entryN = .Cells(i, 1) Next i Wend End With End Sub -------------------- -- helmekki ------------------------------------------------------------------------ helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939 View this thread: http://www.excelforum.com/showthread...hreadid=478520 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get Balance of an entry
Thank u very much -- helmekki ------------------------------------------------------------------------ helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939 View this thread: http://www.excelforum.com/showthread...hreadid=478520 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
balance in excel that only shows the last entry | New Users to Excel | |||
Auto entry of data based on entry of text in another column or fie | Excel Discussion (Misc queries) | |||
Cell Entry That Locks Selected Cells From Any Data Entry. | Excel Worksheet Functions | |||
rent received/balance owed/running balance spreadsheet | Excel Discussion (Misc queries) | |||
automatic entering Balance at every entry in my bank account | Excel Discussion (Misc queries) |