I have a BeforeDoubleClick input box requesting an integer from -9 to
9, then inputs that entry into the active cell.
First, I need to prohibit the entry of a 0, 1, or -1 (Activate MsgBox
indicating the user can't enter one of these and try again).
Then I need to run a formula:
If the number is negative, 1/Input, round to 3 digits beyond the
decimal, then multiply by -1. Enter result in active cell.
Else, if the number is positive, simply enter the input into the
active cell.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Dim AttributeWeight As Integer
AttributeWeight = InputBox("How does it rate?", Title:="Rating",
Default:="Scale -9 to 9")
ActiveCell.Value = AttributeWeight
End Sub
You all have been a tremendous help so far! Thank you!
April
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
