Additional Shares Macro Automated

Iron Contributor

The 3 steps below prompt me to manually enter "SUGGESTED SHARES" from "UN-ALLOCATED FUNDS" into the "ADDITIONAL SHARES" cell.
If possible I would like to automate this process. The cells at the top ie "U30" would use up "UN-ALLOCATED FUNDS" first.


1) SUGGESTED SHARES =ROUNDDOWN(($Y$17-$Y$18)/$Q30,0)
2) UN-ALLOCATED FUNDS =$Y$17-$Y$18
3) ADDITIONAL SHARES see macro below

Sub ADDITIONALSHARES()
'
' ADDITIONALSHARES Macro
'

'

Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("U30:U600")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Display a message when one of the designated cells has been
' changed.
' Place your code here.
StarStopCalc

End If
End Sub

0 Replies