Automate a suggested value to be entered into a cell

Greg Bonaparte

I would like to automate values into cells U30 THRU U600

SUGGESTED SHARES         =ROUNDDOWN(($Y$17-$Y$18)/$Q30,0) 


ADDITIONAL SHARES         U30 thru u600


Using the following macro whenever I manually enter a "suggested share" into u30 thru u600 the "unallocated funds" decrease and the macro generates a message.


Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Range("$AW$21:$AX$600").AutoFilter Field:=1

If Not (Application.Intersect(Range(" U30:U600"), Target) Is Nothing) Then

If MsgBox("Select 'No' until ADDITIONAL SHARES are manually entered. Have you finished manually entering 'ADDITIONAL SHARES' ?", vbQuestion + vbYesNo, "") = vbYes Then

Call ManualCalculate

End If

End If

End Sub


I would like to automate this manual input with priority given to the lowest to highest cell ie u30 being the lowest.

Related Conversations
Tabs and Dark Mode
cjc2112 in Discussions on
16 Replies
Stable version of Edge insider browser
HotCakeX in Discussions on
35 Replies
flashing a white screen while open new tab
cntvertex in Discussions on
11 Replies
How to Prevent Teams from Auto-Launch
chenrylee in Microsoft Teams on
28 Replies