Home

Automate a suggested value to be entered into a cell

Greg Bonaparte
Contributor

I would like to automate values into cells U30 THRU U600

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

UNALLOCATED FUNDS    =$Y$17-$Y$18

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